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This  Programmer's  Manual  accompanies  a  management  assessment  and  training 
simulation  system  that  assesses  participants5;  decision-making  style.  The 
manual  1)  describes  all  hardware  and  software  required  to  run  the  simulation, 

2)  identifies  key  variables  and  describes  the  functions  of  program  components. 

3)  describes  how  to  manipulate  variables  in  order  to  modify  the  simulation 
and  4)  describes  how  participants'  responses  are  scored. 


FOREWORD 


This  document  is  one  in  a  series  which  reports  on  research  conducted 
by  the  Behavioral  Sciences  Research  Center  at  Science  Applications,  Inc., 
under  Contract  No.  MDA  903-79-C-0699  with  the  U.S.  Army  Research  Institute 
for  the  Behavioral  and  Social  Sciences.  The  work  on  this  contract  has 
involved  designing  and  developing  a  management  assessment  training  and 
simulation  system  (MATSS),  which  includes  a  computer  simulation  called 
the  "Yugoslav  Dilemma,"  used  to  assess  the  decision-making  strategy  employed 
by  executive  level  managers.  Decision  making  has  been  found  to  be  one 
of  the  most  prevalent  factors  In  organizational  management.  The  major 
documents  produced  by  this  project  Include: 


Swezey,  R.  W.,  Streufert,  S. ,  Criswell,  E.  L.,  Unger,  K.  W., 
and  van  Rijn,  P.  Development  of  a  computer  simulation  for 
assessing  decision-making  style  using  cognitive  complexity 
theory.  (SAI  Report  No.  SA 1-84-04- 1/8)  McLean.  VA: 

Science  Applications,  Inc.,  1984. 

This  report  Is  the  project  final  report.  It  describes  the 
historv  of  the  project,  theoretical  (cognitive  complexity 
theory)  rationale  for  the  simulation  and  its  assessment 
measures,  and  a  complete  description  of  the  simulation. 

Interested  readers  should  refer  to  this  report  for  an  over¬ 
view  and  description  of  the  project. 

Baudhuln,  E.  S.,  Swezey,  R.  W.,  Foster,  G.  D.,  and  Streufert,  S. 

An  empirically  derived  taxonomy  of  organizational  systems. 

(SAI  Report  No.  SAI-86-091-178)  McLean,  VA:  Science 
Applications,  Inc.,  1980. 

This  document  describes  the  factor  analytic  procedures  used  to 
cluster  and  rank-order  over  350  variables  Involved  in  systems 
theory  and  organizational  management.  The  procedure  yielded  six 
factors.  Factor  one  was  multidimensional  information  processing 
including  decision  making.  This  factor  lead  to  the  decision¬ 
making  emphasis  of  the  simulation. 

Swezey,  R.  W.,  Davis,  E.  G.,  Baudhuln,  E.  S.,  Streufert,  S.,  and 
Evans,  R.  A.  Organizational  and  systems  theories:  An  Integrated 
review.  (SAI  Report  No.  SAI-80-1 13-178)  McLean,  VA:  Science 
Applications,  Inc.,  1980. 

This  300-page  literature  review  provides  an  integrated  discussion 
relating  the  diverse  fields  of  organizational  and  systems  theory. 
Its  contents  are  organized  according  to  the  taxonon\y  developed  in 
Baudhuln,  Swezey,  Foster,  and  Streufert  (1980). 


Unger,  K.  W.  and  Swezey,  R.  W.  Programmer's  manual  to  accompany 
the  Yugoslav  dilemma  (a  computer  simulation;"  (SAI  Report  No. 
SAI-83-08-178)  McLean,  VA:  Science  Applications,  Inc.,  1983. 

This  manual  describes  the  eight  programs  which  run  the  Yugoslav 
Dilemma.  Each  program  is  listed  and  annotated.  Various  possible 
program  manipulations  are  described. 

Criswell,  E.  L.,  Unger,  K.  W. ,  Swezey,  R.  W.,  and  Streufert,  S. 
Researcher's  manual  to  accompany  the  Yugoslav  dilemma  (a 
computer  simulation).  (SAI  Report  No.  SAI-84-02-178) McLean , 

VA:  Science  Applications,  Inc.,  1984. 

The  manual  1)  explains  the  researcher's  responsibilities  in 
running  participants  through  the  simulation,  2)  describes  all 
materials  necessary  to  operate  the  simulation,  3)  provides  step- 
by-step  operating  procedures,  and  4)  presents  instruction  for 
interpreting  participant  profiles. 

Criswell,  E.  L.,  Unger,  K.  W.,  and  Swezey,  R.  W.  Participant's 
manual  to  accompany  the  Yugoslav  dilemma  (a  computer  simulation). 
(SAI  Report  No.  SAl-84-03-178)  McLean,  VA:  Science  Applications 
Inc.,  1984. 


This  manual  presents  1)  instructions  on  how  to  interact  with  the 
computer  during  the  simulation,  and  2)  fictional  background  informa 
tion  to  set  the  stage  for  the  Yugoslav  Dilemma. 


PROGRAMMER'S  MANUAL  TO  ACCOMPANY  THE  YUGOSLAV  DILEMMA  (A  COMPUTER  SIMULATION) 
EXECUTIVE  SUMMARY 


Requirement: 

There  is  a  widely  recognized  need  to  provide  top  level  Arn\y  managers 
with  better  information  and  with  tools  to  better  utilize  the  information 
they  have.  This  need  exists,  not  only  within  battle  situations,  but  also 
within  strategic  and  managerial  situations.  Top  level  decision  making  is 
typically  characterized  by  lack  of  complete  information,  multiple  and 
conflicting  objectives,  high  levels  of  uncertainty,  turbulent  environments, 
and  decision  outcomes  that  tend  to  be  both  costly  and  long  range  in  their 
implications. 

This  report  describes  software  which  is  utilized  by  a  man-machine 
managerial  assessment  and  training  vehicle  that  simulates  complex  informa¬ 
tion  processing  and  decision-making  requirements  within  a  senior  level 
military  management  context.  This  vehicle  is  termed  the  Management 
Assessment  and  Training  Simulation  System.  The  Yugoslav  Dilemma  is  a 
problem  scenario  in  the  system  which  assesses  participant's  decision-making 
strategy.  This  document  is  the  programmer's  manual  which  accompanies  the 
Yugoslav  Dilemma. 

Procedure: 

Software  for  the  Management  Assessment  and  Training  Simulation  System 
Is  presented.  This  document  provides:  (1)  a  documented  listing  of  simula¬ 
tion  programs,  (2)  Instructions  for  manipulating  key  system  variables, 

(3)  a  description  of  system  hardware,  and  (A)  a  detailed  example  of  how 
participants'  responses  are  calculated. 


V 


Findings: 


Software  and  supporting  documentation  presented  in  this  report  allows 
the  Management  Assessment  and  Training  Simulation  System  to  function  as 
required. 

Utilization  of  Findings: 

The  Programmer’s  Manual  is  a  necessary  tool  for  understanding  the 
simulation  and  manipulating  key  variables.  The  intended  audience  of  this 
manual  is  computer  programmers. 
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INTRODUCTION 


Programs  and  Files 

This  report  presents  software  and  documentation  for  a  brief  practice 
simulation  called  "Storm"  and  for  the  Yugoslav  Dilemma  simulation  used 
to  assess  participants'  decision-making  strategy.  Software  for  the  simu¬ 
lations  is  composed  of  eight  programs: 

1)  TEDITOR  (APPLE  WRITER) 

2)  TEDIT 

3)  LEDIT 

4)  DEDIT 

5)  AEDIT 

6)  VEDIT 

7)  SIM 

8)  PROFILE  (Formerly  called  MEASURE) 

The  TEDITOR  (APPLE  WRITER)  program  is  a  word  processing  program  copyrighted 
by  Apple  Computer,  Inc.  which  allows  the  user  to  create  messages  that  will 
appear  during  the  course  of  the  simulation.  The  precise  time  during  the 
simulation  when  each  of  these  messages  occurs  is  determined  by  the  TEDIT 
program.  The  decision  alternatives  which  can  be  selected  by  simulation 
participants  are  created  by  the  DEDIT  program.  The  LEDIT  program  defines 
the  locations  of  movable  objects  in  the  scenario,  and  it  also  determines 
the  scenario  start  time  and  the  time  multiplier.  The  AEDIT  program  performs 
a  number  of  functions  related  to  participants’  decisions,  while  the  VEDIT 
program  keeps  track  of  the  location  of  all  eight  programs.  The  main  simu¬ 
lation  program,  SIM,  uses  the  output  of  the  TEDITOR,  TEDIT,  LEDIT,  DEDIT, 
AEDIT,  and  VEDIT  programs  to  run  the  simulation.  The  PROFILE  program  is  an 
analysis  program  which  calculates  14  measures  of  participant  performance. 

The  measures  are  described  in  detail  by  Criswell,  Unger,  Swezey,  and 
Streufert  (1983) ^ .  Figure  1  illustrates  the  relationships  between  the 
various  programs. 

^Criswell,  E.  L.,  Unger,  K.  W.,  Swezey,  R.  W. ,  and  Streufert,  S.  Researcher's 
Manual  to  Accompany  the  Yugoslav  Dilemma  (A  Computer  Simulation).  (SAI 
Report  No.  SAI-84-02-178)  McLean,  VA:  Science  Applications,  Inc.,  1984. 


1 


INPUT 


PROCESS 


OUTPUT 


Figure  1.  System  software 


Each  of  the  programs,  except  PROFILE,  produces  a  file  (or  files)  which  is 
accessed  during  the  simulation.  TEDIT  and  SIM  produce  more  than  one  file. 
PROFILE  produces  no  files.  The  file(s)  produced  by  each  of  the  programs 
are  as  follows: 


PROGRAM 

FILE(S)  PRODUCED 

TEDITOR 

TEXT.  Mxxx 

TEDIT 

TM/SCENARIO  NAME 
TS#/SCENARIO  NAME 

LEDIT 

LOC/SCENARIO  NAME 

DEDIT 

Drrrr 

AEDIT 

ATBL/SCENARIO  NAME 

VEDIT 

V/SCENARIO  NAME 

SIM 

R/ PARTICI PANT  NAME 
R#/ PARTICIPANT  NAME 
A/PARTICIPANT  NAME 

System  Operation 
A.  Setup 

Prior  to  beginning  a  simulation  run,  the  system  performs  a  series  of  checks 
and  creates  new  files.  The  LOC/SCENARIO  NAME  file  is  checked  to  ensure  that 
all  objects  have  defined  locations.  Then  a  copy  of  the  ATBL/SCENARIO  NAME 
file  is  created  and  named  A/PARTICIPANT  NAME.  This  file  keeps  an  updated 
record  of  changes  in  the  simulation  that  are  a  function  of  time  or  a  partici 
pant's  decisions. 


B.  Message  Presentation 

After  the  setup  has  been  completed  and  the  screens  containing  instructions 
to  the  participant  (TEXT.Mxxx  files)  have  been  presented,  the  SIM  program 
reads  the  TM/SCENARIO  NAME  file  to  determine  when  messages  should  be  presented 
and  what  messages  to  present.  The  messages  are  TEXT.Mxxx  files.  If  no 
decisions  are  made,  the  simulation  uses  only  these  files  during  the  course  of 
the  simulation. 


C.  Decision  Makin 


When  a  participant  presses  the  "D"  key,  the  SIM  program  presents  decision 
alternatives  in  the  form  of  Orrrr  files.  The  decisions  which  are  executed, 
as  well  as  future  plans,  and  previous  related  decisions  are  stored  on  the 
R/PARTICIPANT  NAME  file.  (This  file  should  be  cleared  after  each  partici¬ 
pant  session.  See  Criswell  et  al.,  1983,  for  details.) 

D.  Performance  Measures 


The  PROFILE  program  reads  the  R/PARTICIPANT  NAME  file  in  order  to  compute 
the  14  performance  measures. 


Hardware  Configuration 


The  hardware  and  operating  manuals  used  to  run  the  simulation  are  as  follows 


1)  Apple  II  Plus  computer.  The  Apple  computer  is  accompanied 
by  the  following  manuals: 

a)  Applesoft  II  Basic  Programming  Reference  Manual  - 
Provides  in-depth  explanations  of  all  Applesoft 
commands. 

b)  The  Applesoft  Tutorial  -  Introduces  the  user  to 
programming  techniques. 

c)  Apple  II  Reference  Manual  -  An  accumulation  of 
facts  about  Apple  hardware. 

2)  Microsoft  Ramcard  and  accompanying  installation  and  operat¬ 
ing  instructions.  This  card  is  placed  in  the  Apple's  slot  #0. 

3)  Apple  II  disk  drives  (2)  and  accompanying  DOS  Manual.  The 
controller  card  for  disk  drive  1  is  installed  in  the  Apple's 
slot  #6. 

4)  Thunderclock  Plus  clock  card  and  accompanying  installation 
and  operating  manual.  The  clock  card  is  installed  in  slot  #4. 

5)  Amdek  Color  I  13"  monitor  (no  manuals). 

6)  Integral  Data  Systems  445G  printer  and  accompanying  owner's 
manual . 
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7)  Grappler  interface  card  and  cable  with  accompanying 
operator's  manual.  The  card  is  installed  in  slot  #1. 

8)  Maezon  10  megabyte  hard  disk,  controller  card,  and 
cable  with  accompanying  installation  and  operating 
instructions.  The  controller  card  is  installed  in 
slot  #5. 


System  Limitations 


The  limiting  factor  is  the  amount  of  core  memory  available.  The  16K  Ramcard 
is  sufficient  for  current  purposes;  however,  if  significant  amounts  of  code 
are  added  to  the  existing  software,  then  a  memory  card  or  computer  with 
greater  capacity  will  be  required. 


TEDITOR  PROGRAM 


1.1  GENERAL  INFORMATION 

The  TEDITOR  (APPLE  WRITER)  program  is  used  to  generate  messages  which  appear 
in  the  simulation.  The  following  message  numbers  are  reserved  for  specific 
uses: 


M1-M400  -  Used  for  fixed  and  responsive  messages 
to  be  presented  to  the  participant  by  SIM  (e.g.. 
Shortages  of  food  are  now  common  in  Macedonia). 

M401-M800  -  Used  for  endings  to  be  added  to  the  end 
of  a  decision  string  chosen  by  a  participant  (e.g., 
was  not  successful). 

M900-M999  (except  M910  to  M917)  -  Reserved  for  SIM 
program  messages  not  normally  modified  (e.g..  Are 
you  planning  any  future  decisions?). 

M910-M917  -  Reserved  for  eight  messages  to  be  used 
for  successful  endings  for  move  verbs  (e.g.,  has 
been  successfully  accomplished).  If  the  researcher 
elects  to  have  the  participant  receive  only  success 
ful  responses  to  his  or  her  decisions,  SIM  program 
will  randomly  select  one  of  these  eight  messages. 


The  actual  file  names  that  appear  on  disk  are  of  the  form  TEXT.Mn  (i.e., 
TEXT.M44). 


1.2  USING  TEDITOR 


1.2.1  BRUN  TEDITOR  from  the  volume  specified  in 
the  VEDIT  program. 

1.2.2  Generate  messages  using  the  normal  APPLE 
WRITER  commands.  Wrapping  words  around 
the  screen  edge  is  not  a  problem  since 
SIM  fixes  the  line  length. 

1.2.3  Store  the  text  on  disk. 


1.3 


COMPLETE  MESSAGES 


1.3.1  Complete  messages  are  generated  with  numbers 
from  1  to  400.  Number  assignments  are 
arbitrary. 


1.4  MESSAGE  ENDINGS 


1.4.1  Message  endings  for  SIM  decision  strings 

are  generated  with  numbers  from  M401  to  M800. 

1.4.2  Message  endings  must  begin  with  the  number  1, 
2,  or  3,  indicating  failure,  neutral,  or 
successful  completion,  respectively. 

EXAMPLE:  1  was  not  successful. 

3  has  been  completed. 

1.4.3  The  ending  type  number  (1,  2,  or  3)  must 
agree  with  message  type  (if  the  type  is  1, 

2,  or  3  from  Section  2.4.4)  when  running 
TEDIT. 


1.5  ACCOUNT  ATTACHMENTS 


An  account  is  a  location  (file)  with  data.  Account  attachments  direct  data 
from  one  location  to  another. 


1.5.1  Account  attachments  may  be  added  to  the 

end  of  messages  (1.3  and  1.4)  using  TEDITOR. 

(This  has  not  been  done  in  the  Yugoslav 
Dilemma;  the  Yugoslav  Dilemma  writes  account 
attachments  only  in  DEDIT.)  This  capability 
allows  movement  to  occur  in  fixed  messages. 

1.5.2  Example:  The  flood  stage  has  reached  12  feet 
@!4*>8@@!+5>9@  The  attachment  is  @!4=>8@@!+5>9@. 

1.5.3  Following  from  the  definition  of  attachments  in 
Section  4.3.7,  the  above  example  would  substitute 
account  4  into  account  8  and  would  add  account  5 
to  account  9.  Account  4  could  be  a  flood  stage 
account  with  the  message  "FLOOD  STAGE  IS  12  FEET." 
Account  5  could  be  a  value  of  2.  Account  9  could 
be  the  number  of  failed  levees.  Therefore,  this 
attachment  would  add  2  to  the  number  of  failed 


1.6.1  INPUT/OUTPUT  FILES 


NAME:  TEXT.Mn 

where  n  is  the  message  number. 
SOURCE:  TEDITOR 
EXAMPLE:  TEXT.M33 


ENDING  PROGRAM 

1.6.1  Write  the  output  file  onto  the  hard  disk 
before  leaving  TEDITOR  (APPLE  WRITER). 


PROGRAM  LISTING 


Since  the  APPLE  WRITER  (TEDITOR)  program  is  a 
commercially  available,  copyrighted  product  of 
Apple,  Inc.,  a  complete  listing  with  documentation 
is  inappropriate  for  inclusion  in  this  report. 


TED IT  PROGRAM 


2.1  GENERAL  INFORMATION 

The  TEDIT  program  produces  the  time  sequence  files  that  are  the  heart  of 
the  scenario.  These  files  determine  how  long  the  simulation  runs,  the 
times  at  which  messages  will  appear  (load),  and  the  ratio  of  fixed  to 
responsive  messages. 


2.2  PREREQUISITES 

Prior  to  using  TEDIT,  message  files  must  be  generated  with  TEDITOR. 


2.3  USING  TEDIT 


2.3.1  RUN  TEDIT  from  the  volume  specified  in  the 
VEDIT  program. 

2.3.2  Command  Menu: 

E=Edit  a  file. 

C=Cycle  list  of  files. 

P*Printer  ON. 

N=No  Printer. 

L=Load  a  scenario  from  disc. 

S=Save  scenario  on  disc. 

Q=Quit. 

?=Any  other  key  gets  above  list. 

2.3.3  To  edit  an  existing  scenario,  first  load  (L) 
the  scenario  and  then  edit  (E).  To  create  a 
new  scenario,  simply  use  the  E  command. 
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PRODUCING  A  TIME  LINE 


2.4.1  Enter  command  E  (Edit). 

2.4.2  TEDIT  will  request  a  time  with  the  message, 

ENTER  T. 

2.4.3  Enter  the  time  that  the  message  should  appear, 
in  integer  real  time  minutes  from  0  to  200. 

Two  types  of  data  must  be  defined  for  each 
time,  a  TSN  (Time  Status  Number)  and  a  MSL 
(Message  Selection  Line). 

2.4.4  A  TSN  defines  interpretation  of  the  MSL 
according  to  the  following  table: 

0=No  message  at  this  time.  (Default 
value  at  start  of  TEDIT.) 
l=Failure  ending  for  a  message  in  ml 
(file  containing  message  1)  of  MSL, 
with  remainder  being  complete  random 
messages  in  file  m2  up  to  the  nth 
message. 

2=Neutral  ending  for  a  message  in  ml 
of  MSL,  with  remainder  being  com¬ 
plete  random  messages  in  m2  to  mn. 

3*Success  ending  for  a  message  in  ml 
of  MSL,  with  remainder  in  m2  to  mn. 

4=Random  selection  of  one  of  the  ml 
to  mn  messages  in  MSL  with  a  check 
for  redundancy. 

5=Same  as  4,  above,  except  no  check 
for  redundancy. 

6=Fixed  message. 

7=Take  a  break  after  displaying  ml 
of  TSN. 

8=Do  not  allow  "D"  decision  in  SIM 
until  a  TSN  of  9  (below)  is  found. 

9=Allow  "D"  decision  in  SIM  (reverses 
TSN  of  8  above). 

2.4.5  A  MSL  must  be  defined  if  the  TSN  is  not  zero.  If  a 
MSL  has  been  previously  defined,  it  will  be  displayed 
The  form  of  the  MSL  is: 

ml ;  m2 ;  m3 ;  m4 ;  . . . . ;  mn 


where  ml,  etc.  are  message  numbers. 


For  example:  441;  1,  5;  4 

441  would  be  message  file  TEXT.M441, 

1  would  be  message  file  TEXT. Ml,  etc. 

NOTE:  Message  numbers  indicate  type  of  message, 
see  paragraph  1.4. 

2.4.6  TEDIT  makes  some  checks  to  be  sure  that  there 
is  agreement  between  TSN  and  MSL.  Primarily, 
this  is  a  check  of  MSL  against  TSN.  A  warning 
(message  string  does  not  agree  with  message  type, 
or  message  already  exists)  is  produced  and  the 
problem  can  be  corrected  either  by  changing  TSN 
or  MSL.  (The  message  can  also  be  changed  by 
TEDITOR.) 


2.5  LISTING  FILES 


The  files  can  be  listed  using  the  "C"  command. 


2.5.1  The  data  will  be  listed  for  the  TSN  and  MSL  files. 

2.5.2  TEDIT  will  ask  whether  you  want  to  see  the 
matching  messages  from  the  TEXT.Mn  files. 

2.5.3  TEDIT  will  show  the  current  first  and  last 
filled  TSN  file  numbers.  Select  the  range 
of  time  lines  to  be  displayed. 


2.6  FILES 


2.6.1  INPUT  FILES 

NAME:  TEXT.Mn 

where  n  is  1-200,  401-800,  910-918. 
SOURCE:  TEDITOR 
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2.6.2  INPUT/OUTPUT  FILES  (each  file  is  both  input 
and  output) 

NAME:  TS#/s 

where  s  is  scenario  name 
SOURCE:  TEDIT 

EXAMPLE:  TS#/YUGOSLAV  DILEMMA 
NAME:  TM/s 

where  s  is  scenario  name 
SOURCE:  TEDIT 

EXAMPLE:  TM/YUGOSLAV  DILEMMA 


ENDING  PROGRAM 


2.7.1  The  output  files  must  be  written  using  the 
"S"  command  when  the  files  are  correct. 

Writing  interim  files  is  a  good  practice 

to  keep  from  losing  all  of  the  work  in  case 
of  a  fatal  program  error  or  a  computer  shutdown. 

2.7.2  After  selecting  the  "S"  command,  a  scenario 
name  must  be  entered.  The  output  files  will  be 
written  using  that  scenario  name  as  an  extension 
For  interim  files,  a  scenario  name  such  as  "TEMP 
could  be  used. 

2.7.3  A  warning  will  be  issued  if  a  Q  (Quit)  command 
is  used  and  any  changes  have  been  made  since 
the  last  "S"  command. 


PROGRAM  LISTING 


V V  A* S.V.  <■>  *  J  “  T-  ■  ”  ■  “*7  r*.1"*  T 


" rm r-  r.- •.  ttt '.*. '.vv-'t1*  ."•  ttt' '.^ 


TEDIT 

COMMENTS 


TEDIT  PROCRAM  START 

1  REM  2150  1/30/63 
10  REM  TEDIT 
20  NN  •  0  TEXT 

30  HOME  :  VTAB  10  HTAB  10  PRINT 
"PROGRAM  TEDIT":  PRINT 
SO  D4*  -  CHR*  (4) 

100  COSUB  6000 


7M  ■  i  »t 


MENU  COMMAND  DISPLAY 

110  HOME  :  PRINT  "MENU" 

200  PRINT  "COMMAND  FOR  I  -  0  TO 

NA  PRINT  LEFT*  <C*<I>.1>;:  NEXT 
I :  PRINT  : 

210  CET  A* :  PRINT  A* 

212  FOR  C  -  0  TO  NA  IF  A*  -  LEFT* 

<  C*  <  C  >  .  1  >  THEN  2  50 

215  NEXT  C 

220  PRINT  :  PRINT  :  PRINT  "COMMANDS”: 

FOR  I  «  0  TO  NA  PRINT  C  *  < I  > 

NEXT  I:  COTO  20  0 

250  ON  C  ♦  1  COTO 

300.600,1200,1500,1800.2100.3000,2 

400 


CODE  FOR  EDIT  COMMAND 

300  PRINT  :  PRINT  "ENTER  T : " ; :  INPUT  T 
310  IF  T  <  0  OR  T  >  211  THEN  PRINT 
"ERROR.  MUST  BE  0  TO  211": 

GOTO  200 

320  PRINT  "TIME  STATUS : "T%< T ) :  PRINT 
"TIME  MESSAGES . "T* <T> 

325  PRINT  :V  -  1 

330  FOR  I  -  0  TO  9 :  PRINT  I“-"TY*<I>" 

MESSAGE":  NEXT  I 

340  PRINT  :  PRINT  "ENTER  0  TO  GET 

Nt  PRINT  N*  N  -  ASC  <N*>  -  48 

IF  N  <  0  OR  N  >  9  THEN  PRINT 

"ERROR":  COTO  340 
350  T%<T)  -  N:  IF  N  THEN  400 

3  60  IF  T*  <  T  >  -  ""  THEN  5  99 

370  FLASH  :  PRINT  "WARNING.  THE  MESSAGE 
STRING  IS  NOT  BLANK":  NORMAL  . 

PRINT  "THIS  IS  NOT  NECESSARILY 
BAD  .  " 

380  PRINT  :  PRINT  "DO  YOU  WANT  TO 

DELETE  THE  MESSACE  STRING? 

<  Y / N ) "  ;  :  GET  A*:  PRINT  A* 

390  IF  A*  -  "Y"  THEN  T*<T>  ■  "":  GOTO 

599 

391  IF  A*  <  >  "N"  THEN  370 

400  M*  -  T  *  <  T )  :  IF  M*  -  ""  THEN  410 

401  PRINT  "CURRENT  MESSACE 

STRINC-"T« <T) :  PRINT 

402  PRINT  "DO  YOU  WANT  TO  CHANGE  IT? 

(Y/N):";:  GET  A* :  PRINT  A* 

403  IF  A*  .  "N"  THEN  411 

404  IF  A*  <  >  "Y"  THEN  402 

410  PRINT  "ENTER  MESSAGE  STRING 

SEPARATING  MESSAGE  NUMBERS  WITH 
SEMI-COLONS:";:  INPUT  M* 

411  IF  T  >  NN  THEN  NN  -  T 
420  IF  Ml  ■  ""  THEN  410 

425  IF  LEN  <M*>  >  40  THEN  PRINT 
"ERR. 40  CHARACTERS 
ALLOWED":  GOTO  401 


QSS  -  MS  COSUB  9100 
PRINT  PRINT  "MESSAGE  # ' S : " ;  FOR 
I  «  0  TO  QN:  PRINT  QV(D"  "  ;  : 

NEXT  I 

PRINT  :  POKE  16385,0 
PRINT 

04 S "BLOADTEXT . M"QV<  0 ) "  . A*  40  00  "VSI ( 
1):  PRINT  D4* "CLOSE" : V  -  PEEK 
(16385)  -  240:  IF  V  <  1  OR  V  >  9 

THEN  V  -  0 

IF  T*<T)  >  3  THEN  460 

IF  V  «  T%(T)  THEN  470 
PRINT  "ERROR,  THE  MESSAGE  STRING 
DOES  NOT  AGREEWITH  THE  TYPE  OF 
THE  MESSAGE-";:  PRINT  T% < T ) "  IS 
NOT  EQUAL  TO  "V:  GOTO  400 
IF  V  -  0  THEN  470 

PRINT  "ERROR,  THE  FIRST  MESSAGE 

BEGINS  WITH  A  NUMBER  AND  THIS  IS 
NOT  LEGITIMATE  EXCEPTFOR  TYPES 
1,2,  OR  3 . " ; :  GOTO  400 
IF  QN  «  0  THEN  480 
FOR  I  -  1  TO  QN:  PRINT 

D4  S  " BLOADTEXT . M"QV  <  I)".AS4000"VSS< 
1):  PRINT  D4  * " CLOSE "  : V  -  PEEK 
<  1  6  385  )  -  240 :  I F  V  <  1  OR  V  >  9 

THEN  V  .  0 

IF  V  THEN  PRINT  "ERROR,  2  THRU  N 
MESSAGES  MAY  NOT  BEGIN  WITH  A 
NUMBER.  MESSAGE  #-";QV<I>:  GOTO 
400 

TS  < T )  -  MS 

GOTO  200 


PRINT  "CYCLE" 

PRINT  "DO  YOU  WANT  TO  SEE  THE 

MESSAGES?  <Y/N>":  GET  A*:  PRINT 

AS 

IF  AS  «  "Y"  THEN  S  «  1 :  GOTO  623 
IF  AS  <  >  "N"  THEN  610 

5-0 

FOR  I  -  0  TO  NN.  IF  T%<I)  THEN  625 
NEXT  I 

PRINT  "FIRST,  LAST  RECORDS- " I " . "NN 
INPUT  "INPUT  FIRST.  LAST  FOR 
CYCLE : " ; F . L 

IF  F  >  L  OR  <F  <  0  OR  L  >  200)  THEN 

PRINT  "ERR":  GOTO  630 
PRINT  "HIT  !  TO  STOP  LISTING,  ANY 
OTHER  TO  STOP  AND  RESTART 

SCROLLING" 

POKE  -  16368,0 
FOR  I  -  F  TO  L 
INVERSE  :  PRINT 

- ":  NORMAL 

•  PRINT  I  "  > "T%<  I ) " : "TY* <T%< I ) ) " 
MESSAGE" 

IF  NOT  T%< I >  THEN  690 
QS S  -  TS  < I )  :  GOSUB  9 100 
FOR  J  -  0  TO  QN:  PRINT  QV < J ) 

IF  NOT  S  THEN  680 
Q I  -  QV  <  J )  :  GOSUB  9500 
NEXT  J 

PRINT  :X  -  PEEK  <  -  16384):  IF  X  < 
128  THEN  699 
POKE  -  16368.0 
IF  X  -  161  THEN  200 


CODE  FOR  CYCLE  COMMAND 


GET  At 
NEXT  I 
COTO  200 


PRINT  D4  t " PR* I " 
PRINT  D4  t  " PR#  0 “ 


COTO  200 
GOTO  200 


PRINT  1 
PRINT 


LOAD  ARRAY  FROM 


CODE  FOR  PRINTER  ON/OFF  COMMANDS 


CODE  FOR  LOAD  COMMAND 


INPUT  "ENTER  DATA  SCENARIO 
NAME  .  "  ;  F  I 

IF  Ft  a  ""  THEN  200 

PRINT  D4t" VERIFY  TM/"FtVSt<3> 

PRINT  D4  t " READTM/ "Ft 
INPUT  NN 

PRINT  "HIGHEST  RECORDa “NN 
FOR  I  -  0  TO  NN:  INPUT  T%(I):  NEXT 
I 

PRINT  D4  t  " CLOSE " 

PRINT  D4  4 "OPENTS# / " F t VS t  <  3 ) "  . L 4 0 " 
FOR  I  .  0  TO  NN:  IF  NOT  T%<I) 

THEN  1900 

PRINT  D4  t "READTS# / "F  t "  .R"I 
INPUT  Tt ( I ) 

NEXT  I 

PRINT  D4  t "CLOSE" 

GOTO  200 


SCENARIO 


2  104 
2  10  4 

2109 

2110 
2120 
2130 

2140 

2141 

2142 
2  ISO 

2140 
2  14  1 
2142 


21  80 
2190 
2200 
2205 
2209 
22  10 


2400 
24  1  0 


PRINT  "SAVE  ARRAY  ON  DISC":  PRINT 
TT  -  NN 

FOR  I  .  0  TO  NN:TN%< I )  - 
T%< I ) :TN» < I )  -  Tt < I )  NEXT  I : TT  a 
NN 

IF  Ft  a  ••"  THEN  2  104 

PRINT  "USE  ("Ft")  FOR  SCENARIO? 

< Y/N) : " ; :  GET  At  PRINT  FI 
IF  At  .  "Y"  THEN  2109 
INPUT  "ENTER  SCENARIO  NAME"; Ft 
GOSUB  2130:  COTO  200 
INPUT  "ENTER  SCENARIO  NAME"; Ft 
IF  Ft  a  "»  THEN  2110 
PRINT  D4 I "OPENTM/ "FtVSt < 3 ) 

PRINT  "HIGHEST  RECORD  a "TT 
INPUT  "ENTER  HIGHEST  RECORD  NUMBER 
TO  BE  RECORDED :" ;NX 


CODE  FOR  SAVE  COMMAND 


PRINT  D4 t "VRITETM/ "Ft :  PRINT  NX 
FOR  I  -  0  TO  NX :  PRINT  TN* ( I > : 
NEXT  I 

PRINT  D4  t " CLOSE" 

PRINT  D4 t "OPENTS* / " F t VS  I <  3 ) " . L 4 0 ' 
PRINT  D4  t " CLOSE " :  PRINT 
D4 t "DELETETS* / "FtVSt  <  3 ) 

PRINT  D4t "OPENTS*/ "FtVSt  <  3  > " ,  L40‘ 
FOR  I  -  0  TO  NX :  IF  NOT  TN*(I> 
THEN  2200 

PRINT  D4 I "WR ITETS* /"Ft" . R" I 
PRINT  TNI < I ) 

NEXT  I 
V  -  0 

PRINT  D4  t " CLOSE " 

RETURN 


FOR  I 
THEN 
PRINT 


CODE  FOR  QUIT  COMMAND 


IF  NOT  W  THEN  END 
FLASH  PRINT  "WARNING, 
RECORDS  NOT  WRITTEN  ON 


DISC, 


THIS  IS  OK  HIT  AN  ASTERISK  <*>, 
ANY  OTHER  KEY  TO  RETURN  TO 
MENU  " :  NORMAL  :  CET  Al  IE  A*  < 
>  " THEN  200 
2420  END 


CODE  FOR  BUILD  COMMAND 

3000  REM 

30  0  1  FOR  I  .  0  TO  2  11:  TNS  <  I  )  «  0  TNKI) 

■  " "  '  NEXT  I  I  -  FRE  <  0 ) 

3005  INPUT  "ENTER  NUMBER  OF 

PERIODS  ";NPS:  IF  NPS  <  t  OR  NPS 
>  9  THEN  PRINT  "ERR- 1  TO  9": 

COTO  3005 

3004  INPUT  "ENTER  CAP  MINUTES  (0  OR 
MORE): ".CPS:  IF  GPS  <  0  THEN 

PRINT  "ERR":  COTO  3006 
3007  IF  GPS  THEN  PRINT  "ENTER  LOCKOUT 
MINUTES  <"CPS"  OR  LESS):".:  INPUT 
LMS :  IF  LMS  >  CPS  THEN  PRINT 
"ERR" :  COTO  3007 

3010  PRINT  "ENTER  MESSAGES,  MINUTES  FOR 

EACH  PERIOD" 

3011  SMS  -  0 

3020  FOR  I  -  1  TO  NPS 

3021  PRINT  "ENTER  FOR  PERIOD-"!":",: 

INPUT  MPS < I  )  , TPS <  I  ) 

3  0  25  AMS <  I  )  -  TPS ( I )  -  CPS 

3030  IF  AMS  <  I  >  <  MPS  < I  >  THEN  PRINT 

“ERROR.  WON'T  FIT":  COTO  3021 
3035  IF  NOT  MPS< I )  THEN  PRINT 
"ERROR-NUMBER  OF  MESSACES 
LESS  THAN  1":  COTO  3021 
3040  SMS  -  SMS  ♦  MPS<I> 

3060  NEXT  I  :  SMS  -  SMS  -  1 

3070  IF  SMS  >  NN  THEN  PRINT 

“ERROR-YOU  REQUESTED  "SMS" 

MESSACES":  PRINT  "YOU  ONLY  HAVE 
"NN"  AVAILABLE":  COTO  200 
3080  FOR  I  -  0  TO  SMS:  IF  NOT  T% (I ) 

THEN  PRINT  "ERROR-NO  MESSAGE 
FOUND  AT  "  I  :  J  -  1 

3090  NEXT  I:  IF  J  THEN  200 
3100  SMS  -  0  TT  »  0  MCS  -  0 
3110  FOR  I  -  1  TO  NPS  MPS  -  MPS< I )  AMS 

-  AMS ( I ) 

3120  COSUB  3900 
3130  IF  NOT  MPS  THEN  3200 
3140  K  «  < ( AMS  -  MPS)  /  MPS)  4  .000001 

3160  TT  -  TT  4  K :  COSUB  3900:  IF  MPS 
THEN  3160 

3200  TT  -  SMS  ♦  TPS< I > 

32  05  IF  LMS  THEN  TNS < TT  -  LMS)  - 
8 . TN  *  <  TT  -  LMS)  -  "80" 

3  2  10  TNS  <  TT )  -  7 : TN  *  <  TT )  -  "70" 

3212  IF  I  -  NPS  THEN  TNMTT)  «  "71" 

3215  TT  .  TT  ♦  1 
3220  SMS  -  TT:  NEXT  I 
3230  TT  -  TT  -  1 

3240  FLASH  :  PRINT  "SAVING  NEW  ARRAY  TO 
DISC":  NORMAL 
3250  COSUB  2110 
3260  COTO  200 

3900  TNS(TT)  -  TS < MCS ) : TN • ( TT 1  -  T*<MCS> 

3910  MCS  -  MCS  4  1:TT  •  TT  ♦  1 : AMS  -  AMS 

-  1  MPS  -  MPS  -  1 
3920  RETURN 

7999  END 
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SETUP  SUBROUTINE 


8000  DIM 

T%(  2 1 1 )  .  T*  <  2 1 1 > , VS*  < 1 6 >  , TN%  < 2 1 1  )  , T 
N* (211) 


DIMENSION  VARIABLES 


INITIALIZE  VARIABLES 

8010  FOR  NA  -  0  TO  999:  READ  C $ < NA > 

8020  IF  C  $ ( NA )  «  "*"  THEN  8041 

8030  DATA  ED  I T , C YC L E  ,  PR  I  NT E R  ON , NO 
PRINTER, LOAD  FROM  DISC, SAVE  TO 
DISC, BUILD  A  SCENARIO , QUIT 
803V  DATA  * 

8040  NEXT  NA 


READ  V/SCENARIO  FILE 


804  1 

NA  «  NA 

-  1 

8042 

INPUT  M 

ENTER  VOLUME 

SCENARIO  "  ; 

PRINT 

D  4  *  " 

VERIFYV/ " 

X*  PRINT 

D 4  * " RE ADV / 

"X* :  FOR 

I  s  0 

TO  1 6 

8043 

CET  A* : 

I  F 

ASC  (A*) 

«  13 

THEN 

8045 

80  44 

VS  * (  I  )  - 

VS* (  I  )  +  A*  : 

GOTO 

80  43 

8045 

NEXT  I : 

PRINT  D4  *  :  PRINT 

D4  *  "CLOSE" 

8060 

FOR  NT 

-  0 

TO  9 :  READ  TY * (NT) 

8071 

DATA 

NO . FAILURE .NEUTRAL , SUCCESS . RANDOM 
(NOT  CHECKED >, RANDOM  (REDUNDANT 
CHECK) .UNUSED,  BREAK . LOCKOUT 
' D  *  . ALLOW  ' D 1 
8075  NEXT  NT 
8999  RETURN 


9  100 

QW  «  0:00  «  0 : QN  >  0 : 

QL 

*  LEN 

(QS* ) : QV( 1 )  -  0 : QE 

m 

QL : QV ( 0 )  * 

VAL  (QS* ) :  FOR  QI  - 

2 

TO  QL.  IF 

MID*  (QS*  .QI.l)  < 

9  130 

> 

"  ;  "  THEN 

9110 

QN  -  QN  ♦  1  :  Q I  -  Q I  ♦ 

1 

: QV ( QN  ♦  1 ) 

9  120 

-  0 : QV ( QN )  -  VAL  ( 
(QS* . QI , 99 ) ) 

GOTO  9190 

MID* 

9130 

IF  MID*  (QS* ,OI,l> 

9  160 

( 

>  THEN 

9  140 

9150 

QI  -  QI  *  1 : QO  «  VAL 

(QS*  ,QI  , 99  > ) 

GOTO  9190 

( 

MID* 

9  160 

IF  MID*  (QS* . Q I , 1 ) 

9  199 

< 

>  " 8"  THEN 

9  170 

QI  -  QI  +  1  QW  .  1: QW* 

(QS*  . Q I  ,  99 ) 

-  MID* 

9  190 
9199 

IF  QE  >  QI  -  2  THEN 
NEXT  QI :  RETURN 

QE 

»  QI  -  2 

SEARCHES 
" ; " ,  AND 


A  STRING  FOR 
”8"  SYMBOLS 


DECODES  X.Y  CHARACTERS 
TO  NUMBERS 

9200  X  ■  (  ASC  (  LEFT*  (QSt.l))  -  65)  * 

26  *  ASC  (  MIDI  ( QS  t  , 2 ,  1  >  )  - 
45  Y  «  VAL  (  MID*  (QS»,3,99)> 

9210  RETURN 

9300  QD(QN)  •  DT(QN)  ♦  T 

9310  FOR  QB  «  QN  TO  4:01  »  INT 

(  ( QD ( QB )  -  ( Q8  >  1))  /  QS ( QB  > ) 

9320  QD(QB)  *  QD(QB)  -  QI  *  QS ( QB ) : QD ( QB 
♦  l)  -  DT(QB  ♦  1)  ♦  QI:  NEXT  QB 


RETURN 


READS  AN  M900  FILE 

9399  D4*  *  CHR  $  (4>:QI  «  900  PRINT 

D4*"VER1FYM"QI  .  VS*  (  1  ) 

9400  PRINT  D4  *  " RE ADM" Q I 
94  10  A*  ■ 

9412  CET  QQ*  :  IF  QQ*  »  CHR*  (13)  THEN 

94  15 

9413  A*  >  A*  ♦  00*:  GOTO  9412 

9415  IF  LEFT*  < A* , 1 )  ■  " V  THEN  PRINT 

:  GOTO  9499 

9420  Q8  -  ION  >  VAL  (AS);  IF  QN  THEN 
QB  -  2 

9422  IF  QN  <  0  THEN  QB  «  3 : ON  -  -  QN : 

PRINT 

9423  PRINT 

9425  IF  ON  -  1  THEN  INVERSE  . 

9426  IF  QN  -  2  THEN  FLASH 
9430  PRINT  MID*  (A*, QB , 255); 

9440  NORMAL  :  GOTO  9410 

9499  PRINT  D4*"CLOSE":  RETURN 


READS  A  BINARY  TEXT  Mxx 
FILE  AND  CONVERTS  IT  TO 
APPLESOFT  CHARACTERS 


9500  PRINT 

D4  * " BLOADTEXT . M" Q I “ . A *  4 0 0 0 " VS  *  < 1 )  : 
QL  -  PEEK  (43616)  ♦  PEEK 


(43617)  * 

256  - 

1 

9505 

QB  x  1 

95  10 

QN  «  QB  ♦  39 

:  IF  QN  > 

QL 

THEN 

a 

Z 

a 

QL 

95  1  5 

QQ  »  QI 

95  16 

IF  PEEK  (16384  + 

QB  ) 

M 

1  4  1 

THEN 

PRINT  QB 

■  QB  ♦ 

1  : 

GOTO  9510 

95  20 

FOR  QI  -  QB 

TO  QN 

:  QV 

m 

PEEK 

(QI  + 

1  6384  ) 

95  30 

IF  QV  «  141 

THEN 

QQ  - 

QI 

:  GOTO 

9550 

* 

95  40 

IF  (QV  *  224)  OR 

(  (QV 

m 

32  ) 

OR  (QV 

-  96  )  )  THEN  QQ  - 

QI 

-  X 

95  49 

NEXT  QI 

9550 

FOR  QJ  -  QB 

TO  QQ 

:  QA 

* 

PEEK 

(QJ  * 

16384):  IF  QA  <  64  THEN  INVERSE 

: QA  -  QA  ♦  64 

9551  IF  QA  >  223  THEN  QA  -  QA  -  64 

9553  PRINT  CHR*  (QA);:  NORMAL  :  NEXT 

QJ : QB  -  QQ  ♦  2 

9554  QV  -  PEEK  (16384  +  QB):  IF  (QV  - 

224)  OR  ((QV  -  32)  OR  ( QV  »  96) > 
THEN  QB  »  QB  ♦  1  GOTO  9554 

9555  IF  QB  (  QL  THEN  PRINT  :  GOTO  9510 
9570  RETURN 

98  00  QB  -  1  : QS  * ( 0  )  -  QS* . ON  -  0 : QL  ■ 

LEN  (QS*):  IF  QL  <  40  THEN 
RETURN 

9805  QN  -  -  1 

9820  FOR  Q I  -  QB  '«•  38  TO  QB  STEP  -  l 
9830  IF  MID*  ( QS  *  ,  Q I  > 1  )  -  "  "  THEN 
9850 

9840  NEXT  QI:  PRINT  "END9840":  END 
9850  QN  *  QN  ♦  l:QSt(QN>  -  MID* 

( QS  *  , QB , Q I  -  QB  *  1  )  : QB  »  Q  I  ♦  1 

9855  IF  QL  -  QB  )  39  THEN  9820 

9856  QN  -  QN  ♦  1:QS*(QN)  »  RIGHT* 

(QS* . QL  -  QB  *  1 ) 

9860  RETURN 


UTILITY  ENTRIES  NOT 
EXECUTED  BY  TEDIT 

30000  INPUT  Bi:  PRINT  Bt 
50000  It  *  CHRt  ( 9 )  : Q  t  -  CHRt  (27)  Dt 
«  CHRt  <  4 )  : S t  -  CHRt  (  3  1  >  :  Mi  « 

CHRt  (30)  : L  t  a  CHRt  ( 2 9 > : NC t  ■ 

CHRt  ( 2 ) : EXt  >  CHRt  ( I > 

50002  PRINT  Dt"PR«0" 

50005  PRINT  Dt "PR# 1 " 

50006  PRINT  Qt" J. 0,960, t“ 

50007  PRINT  Qt "B , 6 , t " 

500  1  0  PRINT  I t  0 "N" 

50020  PRINT  Qt “R  ,  2  ,  t " 

50030  PRINT  MtNCt 
50100  END 

55000  Dt  -  CHRt  (4):  PRINT  Dt " OPEN 
ADDLIST":  PRINT  Dt "WRITE 
ADDLIST":  LIST  PRINT  DfCLOSE": 

END 


KEY  VARIABLES 


T  ■  MESSAGE  SLOT  TO  BE  EDITED 

T$  =  MESSAGE  STRING  IN  MESSAGE  SLOT  CURRENTLY  ACCESSED 
NN  *  NUMBER  OF  MESSAGE  SLOTS  IN  SCENARIO 
F  *  FIRST  MESSAGE  SLOT  TO  BE  REVIEWED  WHEN  CYCLING 
L  «  LAST  MESSAGE  SLOT  TO  BE  REVIEWED  WHEN  CYCLING 
F$  *  SCENARIO  NAME 


LEDIT  PROGRAM 


3.1  GENERAL  INFORMATION 

The  LEDIT  program  produces  the  files  that  locate  the  various  (moveable  and 
unmoveable)  objects  in  a  scenario  and  define  their  types.  The  program  also 
produces  the  start  time  for  the  scenario,  the  time  multiplier  which  sets 
the  ratio  of  real  to  simulation  time,  and  the  charge  time  which  sets  the 
amount  of  time  charged  for  each  decision. 

3.2  PREREQUISITES 

LEDIT  requires  that  all  of  the  objects  be  located  on  a  map. 


3.3  USING  LEDIT 


3.3.1  RUN  LEDIT  from  the  volume  specified  in  VEDIT. 

3.3.2  Command  Menu: 

E=Edit  a  location  record.  (See  3.4) 

C=Cycle  list  of  location  records. 

P=Printer  ON. 

N=No  Printer. 

L*Load  a  scenario  from  disc. 

S=Save  scenario  on  disc. 

T=Time  and  date  edit.  (See  3.5) 

Q=Quit. 

?=Any  other  key  gets  above  list. 

3.3.3  Jo  edit  an  existing  scenario,  first  load  (L)  the 
scenario  and  then  edit  (E).  To  create  a  new 
scenario,  simply  use  the  E  command. 


PRODUCING  A  LOCATION  RECORD 


3.4.1  Enter  command  E  (Edit). 

3.4.2  LED  IT  will  request  an  object  number  with  the 
message,  ENTER  OBJECT  NUMBER: 

(Selections  N,  S,  X,  V,  Q,  C,  M  are  then 
produced.  See  3.4.3  through  3.4.9.) 

3.4.3  N=Enter  a  DESCRIPTIVE  NAME.  Enter  an  "N" 
and  then  the  name  of  the  object.  This  name 
is  for  information  purposes  only  and  is  not 
used  in  subsequent  programs.  However,  it  is 
necessary  that  a  name  be  entered,  as  this  is 
how  LEDIT  determines  whether  to  pass  location 
data  on  to  SIM. 

3.4.4  S=STATUS  NUMBER.  Either  0  or  1  must  be 
entered  for  the  object. 

0=Unmoveable  object. 
l=Moveable  object. 

3.4.5  X=Define  an  integer  x  coordinate  for  the 
object.  A  value  of  less  than  1  is  not  allowed. 
Instead  of  x,  y  coordinates,  a  Quadrant  is 
allowed.  (See  3.4.7.) 

3.4.6  Y=Define  an  integer  y  coordinate  for  the  object. 
A  value  of  less  than  1  is  not  allowed. 

3.4.7  Q=Quadrant  definition.  An  object  can  either 
be  defined  with  a  quadrant  definition  or  an 
x,  y  definition.  Quadrants  run  from  AA  to  ZZ 
on  the  horizontal  axis  and  from  1  to  infinity 
on  the  vertical  axis. 

3.4.8  C=CANCEL  that  object. 

3.4.9  M=Return  to  the  COMMAND  MENU  (3.3.2) 

3.4.10  NOTE:  The  origin  of  the  Quadrant  record  is 
defined  as  OBJECT  0  (zero).  You  must  define 
the  origin  before  writing  a  scenario  to  disk 
even  if  you  do  not  intend  to  use  quadrants. 


3.5 


PRODUCING  A  TIME  RECORD 


3.5.1  The  TIME  Record  is  used  to  set  the  displayed 
date  at  the  start  of  the  SIM  program,  the  time 
multiplier  for  the  display  time,  and  the  time 
charged  for  making  a  decision.  Press  the  T  key 
to  observe  these  values. 

3.5.2  START  DATE  AND  TIME.  These  values  are  easily 
created  or  modified  by  entering  new  values  on 
the  keyboard. 

3.5.3  The  TIME  MULTIPLIER  is  the  number  of  seconds 
of  DISPLAY  TIME  that  pass  for  each  second  of 
REAL  TIME.  For  example,  a  60  would  cause 
DISPLAY  TIME  to  change  by  60  seconds  for  each 
second  of  REAL  TIME;  120,  2  minutes  for  every 
two  seconds,  or  1  hour  for  every  30  seconds. 

3.5.4  The  CHARGE  TIME  multiplied  by  the  TIME  MULTIPLIER 
yields  the  number  of  REAL  TIME  seconds  charged 
for  the  decision  loop  in  SIM.  For  example,  if 
the  CHARGE  TIME  is  10  and  the  TIME  MULTIPLIER  is 
60,  then  10  times  60  seconds  (10  minutes)  of 
DISPLAY  TIME  would  pass  during  a  decision.  If 
the  CHARGE  TIME  is  3 Cf  and  the  TIME  MULTIPLIER  is 
120,  one  hour  is  charged  for  each  decision. 


3.6  LISTING  FILES 


The  OBJECT  records  can  be  listed  using  the  "C"  command. 


3.6.1  The  "C"  command  only  lists  the  OBJECT 
Records.  The  Time  Record  is  listed 
using  the  "T"  command. 

3.6.2  LEDIT  will  show  the  current  first  and 
last  filled  OBJECT  Record  numbers. 
Select  the  range  of  time  lines  to  be 
displayed. 
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3.7.1  INPUT/OUTPUT  FILES 
NAME:  LOC/s 

where  s  is  scenario  name 
SOURCE:  LEDIT 

EXAMPLE:  LOC/YUGOSLAV  DILEMMA 


ENDING  PROGRAM 


3.8.1  The  output  files  must  be  written  using  the  "S" 
command  when  the  files  are  correct.  Writing 
interim  files  is  a  good  practice  to  keep  from 
losing  all  of  the  work  in  case  of  a  fatal  error 
or  a  computer  shutdown. 

3.8.2  After  selecting  the  "$"  command,  a  scenario 
name  must  be  entered.  The  output  files  will 
be  written  using  that  scenario  name  as  an 
extension.  For  interim  files,  a  scenario 
name  such  as  "TEMP"  could  be  used. 

3.8.3  If  any  changes  have  been  made  since  the  last 
"S"  command  and  a  "Q"  command  is  entered,  a 
warning  will  be  issued. 


PROGRAM  LISTING 


LEDIT 


COMMENTS 


START  LEDIT  PROGRAM 

10  HOME  :  PRINT  "LEDIT  PROCRAM" 

11  TEXT 
20  NN  -  0 

50  D4  *  m  CHR*  ( 4  > 

100  GOSUB  8000 


COMMANDS  THAT  APPEAR  IN 
THE  MENU 

110  VTAB  2:  PRINT  "MENU" 

200  PRINT  "COMMAND  <";  FOR  I  •  0  TO 

NA :  PRINT  LEFT*  <C*<I>,1>;:  NEXT 
I :  PRINT  ">" ; 

210  GET  A* :  PRINT  A* 

212  FOR  C  -  0  TO  NA  IF  A*  *  LEFT* 

<  C* ( C)  .  1 )  THEN  2  50 
215  NEXT  C 

220  PRINT  :  PRINT  :  PRINT  "COMMANDS:": 

FOR  I'  ■  0  TO  NA:  PRINT  C*(I>: 

NEXT  I :  GOTO  200 
250  ON  C  ♦  1  GOTO 

300.600.1200.1500,1800.2100.2700.2 

400 


CODE  FOR  THE  EDIT  COMMAND 

300  HOME  VTAB  20:  INPUT  "ENTER  OBJECT 
NUMBER : " ; T 

310  IF  T  <  0  OR  T  >  100  THEN  PRINT 

"ERROR.  MUST  BE  0  TO  100": 

GOTO  200 
315  HOME 

320  PRINT  "  NAME  "N*(T):  PRINT  :  FOR 
J  -  0  TO  2 

32  2  PRINT  TY*  < J) “  :  "  ; 

3  23  IF  J  »  1  AND  OMS < 1  , T )  <  0  THEN 

HTAB  1:  PRINT 

"QUADRANT: " ;Q* <T> ; : J  ■  J  ♦  1 : 

GOTO  330 

324  PRINT  OMS< J ,T> ; 

32?  IF  NOT  J  THEN  PRINT  " 

" S  *  <  OM%  <  J . T ) ) 

330  PRINT  :  PRINT  :  NEXT  J 

339  VTAB  20:  HTAB  1:  PRINT 

340  VTAB  20:  HTAB  1:  PRINT  "SELECT  <";: 

FOR  J  ■  0  TO  6  PRINT  LEFT* 

<Ct(J),l>;:  NEXT  J:  PRINT 
350  GET  A* :  PRINT  A* 

360  FOR  J  -  0  TO  6  IF  LEFT*  <G*<J>,1) 

-  A*  THEN  370 

365  NEXT  J:  PRINT  "" 

366  VTAB  18:  HTAB  1:  FOR  J  ■  0  TO  6 : 

PRINT  G*<J NEXT  J:  GOTO  33? 

370  VTAB  18:  HTAB  1:  PRINT  :  PRINT  : 

PRINT  :  VTAB  20 
3  ?  0  ON  J  ♦  1  GOTO 

410.420.430.440,450,460,470 
410  INPUT  "ENTER  DESCRIPTIVE 
NAME : " ;N*  <T> 

4 1  1  V  >  1 
412  GOTO  315 

420  PRINT  "ENTER  STATUS  NUMBER  <0  OR 

1):”;:  GET  A*:  PRINT  A*  A  .  ASC 
<  At )  -  4  8 

421  IF  A  <  0  OR  A  >  1  THEN  PRINT  " " : 

GOTO  420 

422  OM%(0.T>  -  AW  .  1:  GOTO  315 
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1200  PRINT  D4  I  " PR# 1 " :  COTO  200 
1500  PRINT  D4I"PR#0":  COTO  200 


PRINTER  ON /OFT  COMMANDS 


»:•>*  * 


$ 


A 

'A 


ft 


PS 


$ 

& 


m 


v 


A 

A’ 


1800 


18  10 
1820 
1829 


PRINT  "LOAD  ARRAY  FROM  DISC 
PRINT 

INPUT  "ENTER  SCENARIO  NAME: 
IF  FI  -  ““  THEN  200 
PRINT  D4l"VERIFYLOC/ "FI 


CODE  FOR  LOAD  COMMAND 


FI 


D  1  " 


1830 

PRINT 

D4 1 " RE ADLOC / "FI 

1841 

NN  «  100 

1845 

FOR  I 

-  0  TO 

7  : 

INPUT  T  <  I  > 

:  NEXT 

1850 

FOR  I 

«  0  TO 

NN 

FOR  J  -  0 

TO  2  : 

INPUT 

OM%<  J 

I  > 

NEXT  J  NEXT  I 

1855 

FOR  I 

-  0  TO 

NN 

I F  OM%  < 1  , 

I)  <  0 

THEN 

INPUT 

OKI) 

1858 

NEXT  I 

1857 

FOR  I 

«  0  TO 

NN 

I F  OM%  < 1  , 

I  )  <  > 

18  58 
1  8  8  0 

19  10 


0  THEN 
NEXT  I 
PRINT  D4 I 
COTO  200 


INPUT  Nl < I ) 


'CLOSE1 


2  100 
2  10  1 


PRINT  "SAVE  ARRAY  ON  DISC":  PRINT 
IF  NOT  OM«(1.0>  OR  NOT  OM%<2,0> 
THEN  PRINT  "ERROR:  ORIGIN 
UNDEFINED.  HIT  ANY  KEY  TO 
CONTINUE":  GET  Al :  GOTO  200 


CODE  FOR  SAVE  COMMAND 


1  2102 

IF  FI 

-  ""  THEN  2110 

2  103 

PRINT 

"USE  < " F 1 " )  FOR 

SCENARIO? 

1 

<Y/N) 

■ "  :  GET  Al :  PRINT  FI 

■  «  ■* 

2104 

IF  Al 

-  "Y"  THEN  2130 

f «  ■< 

2  110 

INPUT 

"ENTER  SCENARIO 

NAME  :  " 

FI 

2120 

IF  FI 

-  ""  THEN  200 

2130 

PRINT 

D4l"OPENLOC/"F* 

2  142 

PRINT 

D4 I " WR ITELOC / " F  * 

i  2  145 

FOR  I 

-  0  TO  7 :  PRINT 

T  < I )  :  NEXT 

!  2  150 

FOR  1 

«  o  TO  100:  FOR 

J  -  0  TO  2 : 

in 

PRINT 

OM%<  J .  I  >  :  NEXT 

J:  NEXT 

I 

*"  • 

2155 

FOR  I 

-  0  TO  1 0  0 :  IF  OM%  < 1  , I > 

<  0 

THEN 

PRINT  Qt ( I ) 

2158 

NEXT  I 

2157 

FOR  I 

-  0  TO  1 00 :  IF  OM%< 1,1) 

< 

0  THEN  PRINT  Nl ( I) 

2158 

NEXT  I 

2  180 

PRINT 

D4 I "CLOSE" 

2205 

W  «  0 

$ 

22  10 

GOTO  200 

2400 

IF  NOT  W  THEN  END 

24  10 

FLASH 

:  PRINT  "WARNING 

,  FILES 

NOT 

CODE  FOR  QUIT  COMMAND 


2420 


WRITTEN  ON  DISC,  IF  THIS 

OK  HIT  AN  ASTERISK  <»>, 

OTHER  KEY  TO  RETURN  TO  MENU.1 
NORMAL  :  GET  Al:  IF  Al  <  >  * 

THEN  200 
END 


IS 

ANY 


2700 


27  10 


HOME  :  PRINT  "STARTING  TIME. 
MULTIPLIER  AND  TIME  CHARGE": 

PRINT  PRINT  :  FOR  I  «  0  TO  7 : 
VTAB  I  ♦  4  :  HTAB  1:  PRINT 
Tl  C  X  > "•"T< I )  :  NEXT  I 
VTAB  20:  HTAB  1:  PRINT  "OK 
( Y / N ) : " ; :  GET  Al:  PRINT  Al:  IF  Al 


CODE  FOR  TIME  COMMAND 


.sj 


■  V- V- V>V-. SV-'N' *■ 
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-  " y "  THEN  200 

2711  IF  A*  <  >  "N"  THEN  2710 

2720  VTAB  20  HTAB  1  PRINT  " 

"  .  HTAB  1:  PRINT  "ENTER  VALUE  OR 

HIT  RETURN  FOR  NO  CHANCE" 

2730  FOR  I  -  0  TO  7 :  VTAB  I  ♦  4  HTAB 
4  INPUT  A t 

2740  IF  A*  >  ""  THEN  2740 
2750  T(  I  >  >  VAL  (A*  ) 

2740  VTAB  I  ♦  4:  HTAB  1:  PRINT 
T* ( I ) "»"T( I > 

2790  NEXT  I :  COTO  2700 
7999  END 


SETUP  SUBROUTINE 


DIMENSION  VARIABLES 

8000  DIM  N* ( 1 00 ) , OM%( 8 , 1 00 ) , O* < 1 00 ) 


INITIALIZE  VARIABLES 

8001  FOR  NA  >  0  TO  4:  READ  G*(NA)  NEXT 
NA  DATA 

NAME . STATUS , X , Y , QUADRANT , C ANC  E  L . ME 
NU 

8010  FOR  NA  >  0  TO  999:  READ  CI(NA) 

8020  IF  CI(NA)  -  " * "  THEN  8050 
8030  DATA  ED  IT , C Y CL E . PR  I NTER  ON . NO 

PRINTER. LOAD  FROM  DISC, SAVE  TO 
DISC .TIME .QUIT 

8039  DATA  « 

8040  NEXT  NA 
8050  NA  -  NA  -  1 

8052  S*(0>  -  " >NON-MOVING  LOC  “  : S * <  1  )  - 

" > MOVABLE  LOC  ":S*(2)  .  ">MOVING" 

8040  FOR  NT  .  0  TO  8:  READ  TY « ( NT ) 

8071  DATA 

"STATUS" , X.Y.SS.MM.HH.DD.MO.YR 
8075  NEXT  NT 

8100  FOR  I  -  0  TO  7 :  READ  T*  (  I  )  NEXT 
I  DATA  SEC, MIN, HRS, DAY, MON. » 

YR" .MUL , "CHR" 

8999  RETURN 


SEARCHES  A  STRINC  F OR 
SPECIAL  IDENTIFIERS 


9  100 

QV  -  0 : QO  *  0 : ON 

»  0  : 

QL 

■ 

LEN 

<QS* )  QV( 1 )  .  0 

:  QE 

at 

QL  : 

QV  (  0  >  - 

VAL  (QS*)  FOR 

QI  * 

2 

TO 

QL  IF 

MID*  <  QS  t  . Q I  ,  1 ) 
9130 

( 

> 

l<  .  il 

THEN 

9110 

QN  -  ON  ♦  1  Q I  ■ 

QI  ♦ 

1 

: QV ( QN  ♦  1  > 

>  0 : QV ( QN )  -  VAL  < 

MID* 

(QS* . Q I , 99 ) ) 

9  120 

COTO  9190 

9130 

IF  MID*  (QS* .QI 

,  1  ) 

< 

> 

THEN 

9140 

91  40 

QI  -  QI  ♦  1  QO  - 

VAL 

( 

MID* 

(QS*  ,QI  , 99  )  ) 

91  50 

COTO  9190 

9  140 

IF  MID*  (OSt.QI 

,  1  ) 

< 

> 

" S"  THEN 

9  199 

9  170 

Q I  -  Q I  ♦  1  :  QW  - 

1  :  QV* 

m 

MID* 

(QS*  .QI  ,  99  ) 

9  190 

IF  QE  )  QI  -  2  THEN 

QE 

u 

QI  -  2 

9  199 

NEXT  QI  RETURN 

9200 

X  *  (  ASC  (  LEFT* 

(  QS*  . 

l  >  > 

-  45  )  * 

24  *  ASC  (  MID*  (QS* 

.  2  . 

1  )  )  - 

4  5  : Y  -  VAL  (  MID* 

(  QS*  , 

3,99)) 

92  10 

RETURN 

•«  v  *• 


V.  .*  V 
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9300  QD(QN)  a  DT < QN )  ♦  T 

9310  FOR  QB  a  QN  TO  4  01  ■  INT 

<  <  QD  <  QB )  -  (OB  >  1)>  /  OS(QB)) 

9320  QO(QB)  >  QD(QB)  -  QI  *  OS ( QB  >  : QD  <  QB 
♦  1)  a  DT(QB  ♦  1)  ♦  QI  NEXT  QB 
9330  RETURN 


•READS  MESSAGE  STRINGS 

9399  D4*  -  CHR*  <4>:QI  -  900 

9400  PRINT  D4  $ " RE ADM"Q I 
9410  A*  - 

9412  GET  QQ* :  IF  QQ*  a  CHR*  (13)  THEN 

94  15 

9413  A*  a  A*  ♦  QQ I :  GOTO  9412 

9415  IF  LEFT*  ( A* , 1 )  a  "3"  THEN  PRINT 
:  GOTO  9499 

9420  QB  a  l : QN  a  VAL  (At)  IF  QN  THEN 
OB  -  2 

9422  IF  QN  <  0  THEN  QB  -  3 : QN  ■  -  QN : 

PRINT 

9423  PRINT 

9425  IF  QN  a  1  THEN  INVERSE 

9424  IF  QN  -  2  THEN  FLASH 
9430  PRINT  MID*  (A*. OB, 255); 

9440  NORMAL  GOTO  9410 

94  99  PRINT  D4*"CLOSE,,  :  RETURN 


CONVERTS  BINARY  FILES  FROM 
APPLEVRITER  INTO  APPLESOFT 
CHARACTER  STRINGS 

9500  PRINT 

D4  t " BLOADTE  XT . M" Q I "  .A*4000"  : QL  a 
PEEK  (43614)  ♦  PEEK  (43617)  * 

256  -  1 
9505  QB  -  1 

9510  QN  a  QB  ♦  39:  IF  QN  >  QL  THEN  QN  a 
QL 

9515  QQ  -  QI 

9516  IF  PEEK  (16384  ♦  QB)  -  141  THEN. 

PRINT  QB  -  QB  ♦  1:  GOTO  9510 
9520  FOR  QI  a  QB  TO  QN  QV  -  PEEK  (QI  ♦ 

16384) 

9530  IF  QV  «  141  THEN  QQ  a  QI:  GOTO 

9550 

9540  IF  (QV  a  224)  OR  ( ( QV  a  32)  OR  ( QV 
-  94 ) )  THEN  QQ  -  QI  -  l 

9549  NEXT  QI 

9550  FOR  QJ  a  QB  TO  QQ : QA  a  PEEK  (QJ  ♦ 

16384):  IF  QA  (  64  THEN  INVERSE 

: QA  a  QA  +  64 

9551  IF  QA  >  223  THEN  OA  a  QA  -  64 

9553  PRINT  CHR*  ( QA ) ; :  NORMAL  :  NEXT 

Q  J : QB  a  QQ  ♦  2 

9554  QV  -  PEEK  (16384  ♦  QB ) :  IF  ( QV  . 

22  4  )  OR  ((QV  a  32)  OR  ( QV  a  96)  > 

THEN  QB  -  QB  ♦  1:  GOTO  9554 

9555  IF  QB  (  QL  THEN  PRINT  :  GOTO  9510 
9570  RETURN 


SPLITS  A  LINE  INTO  40 
CHARACTER  STRINGS  WITHOUT 
BREAKING  WORDS. 

9800  QB  -  l.QSt(O)  -  OS*  QN  a  0 : QL  a 
LEN  ( QS t )  :  IF  QL  (  40  THEN 
RETURN 

9805  QN  -  -  1 

9820  FOR  QI  a  QB  ♦  38  TO  QB  STEP  -  1 
98  3  0  IF  MID*  (QS(.QI.l)  a  ••  ••  THEN 
9850 


28 


98  40  NEXT  Q I :  PRINT  "END9840” :  END 
9  8  5  0  QN  «  ON  +  I  : QS  $  <  QN)  -  MID* 

<  QS t  . QB  ,  Q I  -  QB  ♦  i):QB  .01  +  1 
9855  IF  QL  -  QB  >  39  THEN  9820 
9654  ON  -  QN  +  l:QSt(QN>  «  RICHT* 

(OS* ,  QL  -  OB  +  1 ) 

9860  RETURN 


30000  INPUT  B* :  PRINT  B* 

50000  I*  .  CHR*  (9)  Qt  .  CHRt  (2?)  D* 
.  CHRt  (4)  St  .  CHRt  (31): Mt  . 
CHRt  <  3  0 )  :  L  *  «  CHRt  (29):NCt  . 
CHRt  ( 2  >  : EXt  .  CHRt  (  1 ) 

50002  PRINT  Dt"PRI0" 

50005  PRINT  Dt" PR* 1 " 

50006  PRINT  Of *J. 0,960, f 

5000  7  PRINT  Q t " B , 6 , t " 

5001  0  PRINT  I  *  0 "N" 

50020  PRINT  Ot "R , 2 , t " 

50030  PRINT  MtNC* 

SO  100  END 

55000  D*  .  CHR*  <4)  PRINT  D t " OPEN 
ADDLIST" :  PRINT  Dt "WRITE 
ADDLIST":  LIST  :  PRINT  Df'CLOSE" 
END 


KEY  VARIABLES 


T  -  OBJECT  NUMBER  TO  BE  CREATED  OR  EDITED 

N$(T)  «  NAME  OF  OBJECT  TO  BE  CREATED  OR  EDITED 

0M%(1,T)  -  X  COORDINATE  OF  OBJECT  TO  BE  CREATED  OR  EDITED 

0M£(2,T)  =  Y  COORDINATE  OF  OBJECT  TO  BE  CREATED  OR  EDITED 

QS$  =  QUADRANT  OF  OBJECT  TO  BE  CREATED  OR  EDITED 

F  «  FIRST  OBJECT  TO  BE  REVIEWED  WHEN  CYCLING 

L  *  LAST  OBJECT  TO  BE  REVIEWED  WHEN  CYCLING 

F$  »  SCENARIO  NAME 

T$(I)  =  TIME  MULTIPLIER  AND  STARTING  TIMES 


UTILITY  ENTRIES  NOT 
EXECUTED  BY  LED1T 
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DEDIT  PROGRAM 


4.1  GENERAL  INFORMATION 


The  DEDIT  program  generates  and  edits  the  decision  alternatives  or  DSP 
(Decision  String  Phrases)  that  a  participant  may  choose. 


4.2  USING  DEDIT 


4.2.1  RUN  DEDIT  from  the  volume  specified  in  VEDIT. 

4.2.2  Command  Menu  lists  file  name,  C  for  catalog, 
and  Q  for  quit.  By  typing  in  a  file  name 
(which  accesses  a  decision  string  phrase  file), 
an  existing  file  may  be  changed.  Most  Yugoslav 
Dilemma  file  names  use  the  format  Dr  (where  r 

is  a  one  to  four  digit  number).  Some  file  names 
use  the  format  Dr.@;  this  is  used  to  create  new 
decisions  strings. 


4.3  CREATING  FILES 


Figures  2  and  3  are  graphic  layouts  of  the  DSP  Files.  Figure  2  illustrates 
the  general  layout  and  Figure  3  provides  a  specific  example. 


4.3.1  CLASS  FILES 

The  top  level  is  the  CLASS  File  and  it  is  given 
the  name  "D."  It  is  for  broad  classifications 
such  as  Economic,  Political,  or  Military.  The 
phrases  are  not  used  to  make  sentences.  When 
the  CLASS  File  is  created,  it  creates  a  VERB 
File  for  each  phrase  in  the  CLASS  File.  The 
phrase  must  end  in  a  question  mark  (?)  for 
information  search  classes. 

EXAMPLE:  D:1  ECONOMIC 
D: 2  POLITICAL 
0:3  MILITARY 
D:4  COVERT  OPERATIONS 
D:5  PUBLIC  OPINION 
D:6  INFORMATION  SEARCH? 

creates  6  VERB  Files:  D1.0,  D2.0,  D3.0,  D4.@, 
05. 0,  and  06.0. 


PREP  FILE  PREP, FILE  PREP  FILE 


t 

Drrrr 

QUALIFIER  FILE 


Figure  2.  General  titles  of  decision  string  phrase  files 
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6th  FLEET  RAPID 


FROM  TO  FROM  TO 


IONIAN  SEA  IONIAN  SEA 

ADRIATIC  SEA  ADRIATIC  SEA 
AEGEAN  SEA  AEGEAN  SEA 

•  • 

•  • 

•  • 


Figure  3.  Example  of  decision  string  phrase  file  from  the  Yugoslav  Dilemma 


32 


4.2.3  VERB  FILES 

The  second  level  is  composed  of  VERB  Files  with 
names  of  "Or"  where  r  Is  1  to  9,  depending 
on  the  number  of  phrases  in  the  CLASS  File. 

The  VERB  Files  define  the  actions  to  be 
taken  and  are  used  as  the  beginning  of  the 
sentence  built  by  SIM.  When  the  VERB  File 
is  created  it  creates  an  OBJECT  File  for 
each  VERB  phrase.  A  VERB  TYPE  can  be  attached 
to  the  verb  to  define  the  action  to  be  taken 
by  SIM.  The  VERB  TYPE  is  added  to  the  end  of 
the  verb  after  a  semi-colon  (;).  VERB  TYPE  1 
is  a  move  verb.  If  no  verb  type  is  found  or 
it  is  zero,  no  action  will  be  taken. 

EXAMPLE:  01:1  WARN 

D1 :2  MOVE;  1 

creates  2  OBJECT  FILES,  011.0,  and  012.0. 

4.3.3  OBJECT  FILES 

The  third  level  files  are  the  OBJECT  Files. 

They  are  given  names  of  "Drr"  where  rr  is  11 
to  99,  depending  on  the  number  of  phrases  in 
the  VERB  and  CLASS  files.  The  OBJECT  phrases 
are  used  as  the  second  part  of  the  sentence 
created  from  the  decision. 

EXAMPLE:  012:1  6th  Fleet 

D12:2  Rapid  Deployment  Force 
creates  a  number  of  PREPosition 
and  QUALIFIER  Files. 


4.3.4  PREP  FILES 

The  PREP  Files  are  tied  to  the  QUALIFIER  Files 
and  have  names  of  Drrr,  where  rrr  is  111  to  999. 
They  may  contain  a  word,  however,  the  file  may 
be  left  blank.  The  prepositions  are  used 
as  deletable  parts  of  decision  sentence 
building. 

EXAMPLE:  0121:1  FROM 
0121:2  TO 

creates  no  new  Files. 
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4.3.5  QUALIFIER  FILES 


QUALIFIER  Files  are  the  "who,  what,  and  how" 
qualifiers  for  the  OBJECT  Files  and  have  names 
of  "Drrrr"  where  rrrr  is  1111  to  9999.  Up  to 
nine  Qualifiers  may  be  attached  to  an  OBJECT 
File  and  must  be  preceded  by  a  PREP  File.  The 
Preposition  for  a  Qualifier  may  be  attached  to 
the  word  or  be  put  in  the  PREP  File.  The 
QUALIFIERS  are  added  to  the  end  of  the  sentences 
being  built.  At  the  end  of  QUALIFIERS,  separated 
by  symbols  (#;&@)  are  ATTACHMENTS  that  are  used 
by  the  SIM  program  to  calculate  movement  and 
other  actions.  The  ATTACHMENTS  are  defined  in 
Section  4.3.6  and  4.3.7. 

EXAMPLE:  01211:1  Ionian  Sea  #1 

D1211 :2  Adriatic  Sea  #2 
01211:3  Aegean  Sea  #3 

NOTE:  The  Dll  11  Files  go  with  the  Dill : 1  Files 
in  4.3.4;  the  D1112  Files  go  with  the  Dll  1 : 2 
Files;  and  Dill 3  with  Dill. 3  Files. 

4.3.6  ATTACHMENTS  (#;&@) 

ATTACHMENTS  are  information  attached  to  QUALIFIER 
Files  that  allow  calculation  in  SIM.  No  specific 
place  has  been  set  aside  for  the  attachments.  SIM 
uses  them  wherever  found  in  a  decision  string. 

#  SYMBOL  defines  an  object  by  number.  The  number 
ties  the  object  to  the  definition  in  LED IT. 

;a;b  SYMBOLS  are  used  to  define  the  amount  of 
time  in  minutes  that  a  decision  will  require. 

The  calculation  is  made  with  (a+bx)  where  a  is 
a  fixed  number  of  minutes,  b  is  a  rate  of  speed, 
and  x  is  a  computer-calculated  (LEDIT)  distance 
from  origin  to  destination.  If  ;b  does  not 
appear,  the  calculation  will  be  a  fixed  number 
of  minutes.  For  example,  if  a  decision  string 
ending  contains  ;60,  the  response  will  be 
available  (not  necessarily  delivered)  in  60 
minutes.  If  the  string  ends  in  ;120;4,  th~ 
response  will  be  available  in  120  minutes  +  4 
(distance). 

&  SYMBOL  defines  the  destination  object  number. 

The  number  ties  the  object  to  the  definition  in 
LEDIT.  If  the  number  following  is  a  ?ero, 

SIM  will  request  a  QUADRANT. 

@  SYMBOLS  define  how  the  account  files  are  to 
be  manipulated.  See  4.3.7. 


4.3.7  ACCOUNT  MANIPULATION  ATTACHMENTS 


ACCOUNT  ATTACHMENTS  are  delimited  by  @  SYMBOLS 
on  QUALIFIER  Files.  An  account  command  is  a 
number  of  characters  surrounded  by  @  symbols. 
ACCOUNT  ATTACHMENTS  must  be  the  LAST  type  of 
attachment  appearing  in  a  string.  In  order  to 
use  accounts  they  must  be  created  using  the 
AEDIT  program  to  create  an  ATBL  file. 

TEMPORARY  accounts  mentioned  below  are  used 
to  tie  two  different  QUALIFIERS  together  in  a 
SIM  decision  string.  The  ACCOUNT  COMMAND  con¬ 
sists  of  the  following  seven  fields. 

4. 3. 7.1  FIELD  1:  A  @  symbol. 

4. 3.7.2  FIELD  2:  A  !  symbol  indicates  an 
immediate  action  on  the  account. 

A  ?  symbol  indicates  action  when 
the  response  message  is  shown  on 
the  screen. 

4. 3. 7. 3  FIELD  3:  The  Action  indicator: 

+  Add  source  account  to  destination 
account. 

-  Subtract  source  account  from 
destination  account, 
x  Multiply  source  account  by  destina¬ 
tion  account  and  store  in  destination 
account. 

=  Store  source  account  Into  destina¬ 
tion  account.  This  works  for  either 
numbers  or  character  accounts. 

NOTE:  IF  A  TEMPORARY  ACCOUNT  FROM  A  TO  J  APPEARS 
IN  FIELD  4,  FIELD  3  MUST  NOT  BE  USED. 

4. 3. 7. 4  FIELD  4:  The  source  account  number  from 
ATBL,  a  temporary  account  from  A  to  J,  or 
Q  for  a  temporary  QUADRANT  account. 

4. 3. 7. 5  FIELD  5:  A  >  symbol. 

4. 3. 7. 6  FIELD  6:  The  destination  account  number 
from  ATBL,  a  temporary  account  from  A  to 
J,  or  Q  for  temporary  QUADRANT  account. 

A  TEMPORARY  account  ties  two  QUALIFIER 
FILES  together. 

4. 3. 7. 7  FIELD  7:  A  @  symbol.  A  destination 
account  of  0  causes  a  value  or  string 
to  be  printed  on  the  screen. 


PUTTING  DATA  INTO  A  NEW  FILE  (Dr.@  Command) 


4.4.1  DEDIT  will  ask  how  many  phrases  are  to  be 
entered.  A  number  from  1  to  9  is  acceptable. 

4.4.2  Each  phrase  is  then  entered  and  terminated  by 
a  RETURN. 

4.4.3  DEDIT  then  writes  a  new  file  with  the  name 
"Dr"  and  deletes  the  empty  "Dr.@"  file  on 
the  disk. 

4.4.4  DEDIT  writes  new  files  at  the  next  lower 
level  (if  any)  with  the  name  "Drx.@"  where 

x  is  a  number  from  1  to  the  number  of  phrases. 

EXAMPLE:  D12.@  command  would  produce  the 

following  files  if  there  were  four 
phrases:  D12,  D121.@,  D122.@, 
D123.0,  D124.0.  It  would  delete 
the  D12.0  file. 

4.4.5  Note  that  Dr.@  files  are  empty  files  used  to 
indicate  that  more  files  remain  to  be  filled. 
When  all  of  the  files  with  @  extensions  have 
disappeared,  all  of  the  decision  strings  have 
been  completed. 


EDITING  EXISTING  FILES  (Dr  Command) 


4.5.1  The  RECORDS  currently  in  the  file  will  be  displayed 

4.5.2  Enter  the  number  of- the  record  to  be  corrected. 

The  cursor  will  move  up  to  the  beginning  of  the 
line  to  be  edited.  The  new  record  can  then  be 
entered  from  the  keyboard  or  be  corrected  using 
the  cursor  correction  techniques  specified  in 
the  APPLESOFT  MANUAL  using  the  left  and  right 
arrows  and  the  ESC  key  with  I,  J,  K,  and  M. 

Hit  RETURN  when  the  record  is  correct. 

4.5.3  The  number  of  phrases  can  be  increased  with  an 
"I"  Command  or  decreased  with  a  "D"  Command. 

Use  of  the  "D"  Command  may  leave  some  useless 
files  on  the  disk  but  they  will  not  cause  a 
problem  to  the  programs. 


[iTaij 


COMMENTS 


ACCEPTS  INITIAL  USER  INPUT 
C  TO  CATALOG.  Q  TO  QUIT 
D@  TO  ENTER  NEW  TEXT  PHRASE 
Dim  TO  RETRIEVE  EXISTING 

TFXT 

205  INPUT  "ENTER  FILE  NAME  OR  Q  OR 

C : " ; FI  IF  F*  -  " "  THEN  205 

206  IF  F*  -  "Q"  THEN  END 

207  IF  F*  -  "C"  THEN  PRINT 

D4  I  " CATALOG " :  GOTO  205 
20  8  NF  -  VAL  (  MIDI  (FI. 2,1))  ♦  7 
210  IF  FI  <  >  "D THEN  220 

212  PRINT  D4 I "BSAV£"FI  "  . A" LT"  . L 1 "VSI ( 7 > 

220  IF  RIGHT!  (Fl.l)  <  >  "•"  THEN  300 

225  ONERR  GOTO  590 

230  PRINT  D4I" VERIFY "FIVSI (NF) 

240  GOSUB  7000 
250  GOTO  200 


ALLOWS  USER  TO  ADD  DELETE. 
OR  MODIFY  EXISTING  TEXT 
PHRASES 

300  ONERR  GOTO  590 

301  PRINT  D4l"BLOAD"FI" .A" LT ,VSI(NF>  LL 

•  PEEK  (43616)  ♦  256  *  PEEK 

(43617) 

303  BL  «  1 : L  -  0 :  GOTO  308 

305  ONERR  COTO  600 

306  PRINT  D4I"VERIFY"FI :VSI (NF)  PRINT 

D4 I " READ" F I 

307  BL  -  0 : L  -  1 

308  GOSUB  9100 

309  HOME  :  PRINT  "FILE-"FI:  PRINT 

310  FOR  I  «  0  TO  A:  PRINT  ":"I  ♦ 

1  V(  I  )  «  PEEK  <  3  7  ) 

320  PRINT  DI(I)  NEXT  I:  PRINT 
D4 I " CLOSE " 

330  PRINT  :  PRINT  "ENTER  RECORD  #  TO 
CORRECT.  I  TO  INCREASE. D  TO 
DECREASE.  RETURN  TO  QUIT":  GET  Al 
33  2  PRINT  A I 

334  IF  Al  -  CHR!  (13)  THEN  400 
338  IF  Al  <  >  "D"  THEN  344 

340  PRINT  "WARNING-YOU  ARE 

DECREASING  THE  SIZE  OF  THE 
MATRIX.  OK  ?  <  Y / N )  : " ;  :  GET  Bl: 

PRINT  Bl:  IF  Bl  <  >  "Y"  THEN  309 

342L-1A.A-1:  GOTO  309 
344  IF  Al  -  • i"  THEN  354 

350  J  >  VAL  ( A I  )  -  1:  I  F  J  (  0  OR  ( J  > 

A)  THEN  PRINT  ""  GOTO  330 

352  IF  («J  <  ■  A)  THEN  L  ■  1  GOTO  360 

353  GOTO  330 

354  PRINT  "WARNING-YOU  ARE 

INCREASING  THE  SIZE  OF  THE 
MATRIX.  OK?  (Y/N):";:  GET  Bl: 

PRINT  Bl  IF  Bl  <  >  "Y"  THEN  309 


II  II 


3  5  5  A  ■  A  +  1  :  L  ■  1 

354  INPUT  "ENTER :"  ;D* <A)  :  IF  DI<A)  « 

THEN  354 

357  IF  VAL  (  MID*  <F*.2>>  >  b  1000 

THEN  309 

358  T*  ■  FI  ♦  STR*  <A  ♦  1)  ♦  " . NO  » 

VAL  <  MID*  <T*.2.1>>  ♦  7  PRINT 
D4  *  " BSAVE "T» "  , A " LT"  , L 1 " VS*  <NQ ) 

359  COTO  309 

340  VTAB  V<J>  ♦  1:  HTAB  3:  INPUT  D*<J>: 
COTO  309 

400  IF  NOT  L  THEN  500 

402  ONERR  COTO  410 

405  REM  :»  D4 ( " DE L ETE “ F * 

4 1 0  POKE  LT . A : LM  b  LT 
415  ONERR  COTO  400 

420  FOR  I  -  0  TO  A  LM  «  LM  ♦  1 :  POKE  LM . 9 3 

421  LD  «  LEN  (Ot<I>):  FOR  K  -  1  TO 

LD.LM  b  LM  ♦  l.  POKE  LM ,  ASC  < 

MID*  (D* < 1  >  .K,  1 >  >  :  NEXT  K 
430  NEXT  I  :  LM  .  LM  ♦  1:  POKE  LM , l 3 

440  PRINT  D4  * " BSAVE " F  * " . A " LT" . L " LM  -  LT 
♦  1  ; VS* <  NF ) 

500  COTO  200 

590  PRINT  :  PRINT  :  PRINT  "CAN'T  FIND 
"F*"  ON  (  “VS  *  <  NF  )  "  )  ** 

400  PRINT  "ERROR  ON  DISC  READ. 

HIT  ANY  KEY  TO  CO:":  CET  A*:  COTO 
200 

4999  END 


ACCEPTS  INPUT  OF  NEW  TEXT 
PHRASES 

7000  PRINT  "HOW  MANY  PHRASES";:  CET  N: 

PRINT  N 

7010  N  -  N  -  1.  FOR  I  b  0  TO  N:  PRINT 

"INPUT  PHRASE  *"I  ♦  1.;  INPUT 
D* ( I )  NEXT  I 
7015  LL  -  LT:  POKE  LL.N 

7020  HOME  :L  b  0:  FOR  I  -  0  TO  N :  PRINT 
I  +  1 "b"D* (  I )  :  IF  LEN  (D«  < I  )  )  > 

L  THEN  L  .  LEN  <0*  < I  )  ) 

7025  IF  NOT  (  LEN  <D*<I>)>  THEN  PRINT 
"ERROR.  NO  PHRASE"  COTO 
7000 

7024  NEXT  I 

7030  PRINT  :  PRINT  "OK?  <Y/N>: CET 
A*  PRINT  A* 

7040  IF  A*  *  “N"  THEN  7000 
7050  IF  A*  <  >  " Y "  THEN  7030 

7055  T*  b  LEFT*  <F»,  LEN  <F«>  -  2) 

7054  NF  b  VAL  <  MID*  <F*,2,1)>  ♦  7 

7040  POKE  LL.N  FOR  I  -  0  TO  N:ll  .  LL 

♦  1:  POKE  LL.93 

7041  LD  -  LEN  <D*<I>>.  FOR  B  b  1  TO 

LD  :  LL  «  LL  +  1  :  POKE  LL ,  ASC  < 

MID*  <D<( I ) ,B, 1 ) ) :  NEXT  B 
7045  IF  VAL  <  MID*  <T*,2>>  >  1000  THEN 

7080 

7044  B*  b  T*  +  STR*  <1  «•  1)  ♦  "  . 

7047  NQ  b  VAL  (  MID*  <B*,2,1>>  ♦  7 
7070  PRINT 

D4 * "BSAVE "B* " . A" LT"  , L 1 " VS  * < NQ ) 

7080  NEXT  I : LL  -  LL  ♦  1 :  POKE  LL , 1 3 

7090  PRINT  D4  t  "  DE  L  ETE  " F  * VS  *  <  NF )  :  PRINT 
D4  * " BSAVE "T* " , A" LT"  ,  L " LL  -  LT  + 

1  ; VS*  <NF  > 

7099  RETURN 


SETUP  SUBROUTINE 


DIMENSION  VARIABLES 

8000  DIM  VSI ( 1 6 ) 

80  1  0  D41  ■  CHR  t  (4) 

8020  HOME  :  VTAB  8:  HTAB  10  PRINT 

"DEDIT  PROCRAM":  PRINT  PRINT 


READ  V/SCENARIO  FILE 

8040  INPUT  "ENTER  SCENARIO . ";X» 

804  1  PRINT  D4t"VERIFYV/ "Xi" 

8042  PRINT  D4t "READV/ "Xt  FOR  I  -  0  TO 

1  6 

8043  CET  At  IF  ASC  (At)  -  13  THEN 

8045 

8044  VSt(I)  -  VSt<!>  ♦  At:  GOTO  8043 

8045  NEXT  I:  PRINT  :  PRINT  D4t“CLOSE" 

8048  PRINT  "  " 

8100  LBt  «  CHR  t  (91)  CRt  -  CHR  t  (13): 

FOR  I  -  0  TO  99:  READ  CMt(I) 

8101  IF  CMt(I)  <  >  "t"  THEN  NEXT  I 

8102  NC  -  I  -  1 

8110  DATA  DELETE , REPLACE . PR  I  NT 
Bill  DATA  t 
8199  COTO  8999 


DEBUG  ROUTINE 

8200  PRINT  D4  t "OPEN  TEST" 

8210  PRINT  D4  t " WR I TE  TEST" 

8220  At  -  "  40  :  A1  3  A2  3  A3  3  A4  3  A5  3  "  :  PRINT  At 
82  30  PRINT  D4  t " CLOSE " 

8240  PRINT  D 4  t " OP EN  TEST" 

8250  PRINT  D4  t "READ  TEST" 

8282  GET  At  CET  Bt  :  A  «  VAL  (At)  B  - 

VAL  ( Bf ) :  GET  At 

8283  FOR  J  -  0  TO  B:  FOR  I  «  0  TO 

A  :  Dt  <  I  . J)  .  »» 

8284  GET  At  IF  At  <  >  "3"  THEN 

Dt(I.J)  *  D  t ( I  , J )  ♦  At:  GOTO  8264 
8265  PRINT  Dt(I.J):  NEXT  I:  NEXT  J 
82  70  PRINT  D4  t " CLOSE " 

8280  END 
8999  RETURN 


9000  ER  -  PEEK  (222):  PRINT 
" ERROR- " ER 

9010  IF  ER  -  6  THEN  PRINT  "FILE 
NOT  FOUND":  GOTO  205 
9030  END 


ERROR  ROUTINE 


SPLITS  STRING  INTO  SMALLER 
STRINGS 

9100  IF  BL  THEN  9105 

9102  CET  A t  : A  >  VAL  (At):  GET  Bt 

9  103  GOTO  9H0 

9105  A  -  PEEK  ( LT ) : LM  -  LT  ♦  1 

9110  FOR  I  •  0  TO  A : Dt ( I )  -  "" 

9112  IF  BL  THEN  LM  -  LM  +  1  At  -  CHR t 

(  PEEK  ( LM) ) :  GOTO  9120 

9113  GET  At 

9120  IF  At  <  >  CRt  AND  At  (  >  "3" 

THEN  Dt ( I )  -  Dt ( I )  ♦  At :  GOTO 
9112 

9130  NEXT  I:  PRINT 
9140  RETURN 


50000  I»  -  CHR*  <  9 )  Q  t  ■  CHR*  (2?)  D* 
-  CHR*  ( 4 )  : S  *  •  CHR*  ( 3 1  >  : M *  « 
CHR*  (30)  L  t  -  CHR*  <29)  NC*  « 
CHR*  <  2 )  EX*  «  CHR*  ( 1  > 

50002  PRINT  D^PROO" 

50005  PRINT  D»  '*  PR*  1  " 

50004  PRINT  Q*”J, 0,940,*' 

5000?  PRINT  0* "B  ,  4  .  *  " 

50010  PRINT  1*0 "N" 

50020  PRINT  Q* "R . 2 , * “ 

50030  PRINT  M  *  NC  » 

50100  END 

55000  D*  -  CHR*  <4>  PRINT  D*“OPEN 
ADDLIST"  PRINT  D*"WRITE 
ADDLIST”  LIST  :  PRINT  D*”CLOSE” 
END 


KEY  VARIABLES 
X$  -  SCENARIO  NAME 

F$  -  INITIAL  USER  INPUT  (DECISION  ALTERNATIVE  TO  BE  EDITED) 


AEDIT  PROGRAM 


5.1  GENERAL  INFORMATION 


The  AEDIT  program  produces  the  account  records  for  responsive  messages 
that  are  used  by  the  SIM  program. 


5.2  USING  AEDIT 


5.2.1  RUN  AEDIT  from  the  volume  defined  by  VEDIT. 

5.2.2  Enter  the  scenario. 

5.2.3  Command  Menu: 

E=Edit  a  record. 

C=Cycle  list  of  records. 

P=Printer  ON. 

N=No  Printer. 

Q=Quit. 

?=Any  other  key  gets  above  list. 


5.3  PRODUCING  AN  ACCOUNT  RECORD 


5.3.1  The  records  are  produced  by  using  the  EDIT 
command. 

WARNING:  TRY  TO  KEEP  THE  RECORD  NUMBERS  AS 
LOW  AS  POSSIBLE,  OTHERWISE  MANY  EXCESS 
RECORDS  COULD  BE  CREATED.  Record  numbers 
can  be  any  number  greater  than  1 .  Record  1 
contains  the  number  of  records  already 
created. 

5.3.2  Each  account  record  can  have  up  to  200 
characters  (five  lines)  in  it.  An  account 
can  have  either  a  number  in  it  or  any 
character  message  (including  non-changeable 
numbers). 


5.4 


LISTING  RECORDS 


The  records  can  be  listed  using  the  "C"  command.  AEDIT  will  show  the 
current  first  and  last  record  numbers.  Select  the  range  of  records  to 
be  displayed. 


5.5  FILES 

The  AEDIT  program  creates  (if  necessary)  and  uses  a  random  access  disk  file 
of  200  characters  in  each  record. 

5.5.1  INPUT/OUTPUT  FILE 

NAME:  ATBL/s 

where  s  is  scenario  name 
SOURCE:  AEDIT 

EXAMPLE:  ATBL/YUGOSLAV  DILEMMA 


5.6  ENDING  PROGRAM 

Select  the  Q  (QUIT)  option.  All  new  records  are  immediately  written  to  disk 


5.7 


PROGRAM  LISTING 


AEDIT 


COMMENTS 


AEDIT  PROGRAM  STAR7 

10  REM  AEDIT 

1 1  HOME 

12  SZ  -  200 

50  D4*  -  CHR*  (4) 

6  0  COTO  180  0 
100  GOSUB  8000 


CHECKS  AND  ACCEPTS  USER 
COMMANDS 

110  HOME  PRINT  "MENU  --  LARGEST* "NN 
200  PRINT  "COMMAND  < " ; :  FOR  I  «  0  TO 

NA  PRINT  LEFT*  <  C  *  <  I )  , 1  J  ;  NEXT 
I :  PRINT 

2 1 0  GET  A* :  PRINT  A* 

212  FOR  C  *  0  TO  NA  IF  A*  *  LEFT* 

<  C* ( C>  .  1  >  THEN  250 
215  NEXT  C 

220  PRINT  PRINT  :  PRINT  "COMMANDS:": 

FOR  I  -  0  TO  NA:  PRINT  C*(I): 

NEXT  I.  GOTO  200 
250  ON  C  +  1  GOTO 

300.600.1200.1500.3000 


CODE  FOR  EDIT  COMMAND 

300  PRINT  :  PRINT  "ENTER  INPUT  T 

310  IF  T  <  2  OR  T  >  49?  THEN  PRINT 

"ERROR.  MUST  BE  2  TO  499": 

GOTO  200 

311  IF  T  >  NN  THEN  500 
320  GOSUB  10000 

401  PRINT  "CURRENT  MESSAGE  STRING-": 

PRINT  M*  PRINT 

402  PRINT  "DO  YOU  WANT  TO  CHANGE  IT? 

<  Y / N )  :  "  ;  :  GET  A*  PRINT  AS:  PRINT 

403  IF  A*  -  "N"  THEN  59? 

404  IF  A*  <  >  "Y"  THEN  402 

410  PRINT  "ENTER  MESSAGE  STRING  UP  TO 

"SZ"  CHARS . : " :  INPUT  M» 

411  IF  T  >  NN  THEN  NN  -  T :  GOSUB  l 1000 
420  IF  M«  -  ""  THEN  410 

4  30  M*  -  LEFT*  <M*  . SZ  > 

440  GOSUB  12000 
450  GOTO  320 

500  PRINT  "DO  YOU  WANT  TO  ADD  A  NEW 

RECORD?  (Y/N):";:  GET  A»:  PRINT 
A* :  PRINT 

503  IF  A*  -  "N"  THEN  200 

504  IF  A*  <  >  "Y"  THEN  500 
50?  F  -  NN  ♦  INN  -  T : L  -  NN 
510  PRINT  D4*"OPEN"N*F»"  ,  L " S Z 
520  PRINT  D4 t "WR I TE "N» F * " .Rl" 

530  PRINT  NN 

540  GOSUB  2000 
550  GOTO  320 

59?  PRINT  D4*" CLOSE":  GOTO  200 


CODE  FOR  CYCLE  COMMAND 

600  PRINT  "CYCLE" 

625  PRINT  "LAST  RECORD- "NN :  PRINT 

626  PRINT  "HIT  •  TO  STOP  LISTING.  ANY 

OTHER  TO  STOP  AND  RESTART 

SCROLLING" 

627  PRINT 

630  INPUT  "INPUT  FIRST,  LAST  FOR 


CYCLE". F  ,  L 

432  IF  F  >  L  OR<F  <  1  OR  L  >  500)  THEN 

PRINT  "ERR"  GOTO  430 

439  POKE  -  14348.0 

440  FOR  T  «  F  TO  L :  PRINT  T; 

441  INVERSE  :  PRINT 


NORMAL 

442  PRINT  D4t"OPEN"NtFt" . L"SZ 
445  PRINT  D4t  "READ"NtFt"  .  R"T:  INPUT  Mt 
444  PRINT  D4  t  " CLOS E " 

450  PRINT  Mt 

440  PRINT 

441  GOTO  499 

490  X  -  PEEK  <  -  14384):  IF  X  <  128 

THEN  499 

491  POKE  -  14348.0 

492  IF  X  -  141  THEN  200 

493  X  *  PEEK  (  -  14384):  IF  X  <  128 

THEN  493 

494  POKE  -  14348.0 

499  NEXT  T 
700  GOTO  200 

PRINTER  ON/ OFF  COMMANDS 

1  200  PRINT  D4*,,PR#1":  GOTO  200 
1500  PRINT  D4*"PR#0":  GOTO  200 

IDENTIFIES  AND  READS  THE 
SCENARIO  OR  PARTICIPANT  FILE 
THAT  IS  TO  BE  CREATED  OR 
EDITED . 

1  800  PRINT  D4  t  “ CLOSE " 

180  1  VV*  -  " "  :  Nt  «  “ ATBL / "  : TY  t  - 
" S  C  ENAR IO" 

1802  PRINT  "SCENARIO  OR  PARTICIPANT? 

<  S / P )  :  "  ;  :  GET  A*:  PRINT  Al:  PRINT 
:  IF  A*  <  >  "P"  AND  At  <  >  "S" 

THEN  1802 

1803  IF  At  <  >  "P"  THEN  1809 

1804  Nl  -  "A/":TYt  «  "PARTICIPANT" 

1805  INPUT  "ENTER  VOLUME  NUMBER  FOR  A/P 

FI LE  :  "  ;N 

18  04  Vt  -  ",V"  ♦  STRt  <  N  > 

1809  ONERR  GOTO  1850 

1810  PRINT  "ENTER  "TY  t "  NAME:";:  INPUT 

Ft 

1820  IF  Ft  «  THEN  200 
1  830  PRINT  D4  t " OPEN"Nt  Ft"  ,  L " SZ 
1835  PRINT  D4t"READ"NtFl" ,R1 " 

1840  INPUT  NN 

1841  PRINT  "HIGHEST  RECORD^ "NN 
1849  COTO  1890 

1  850  INPUT  "NEW  SCENARIO?  (Y/N)  "  : AN t 

1851  IF  ANt  -  "N"  THEN  1800 

1852  IF  ANt  <  >  "Y"  THEN  1800 

1855  POKE  214,0 

1840  NN  -  1 

1845  IF  PN  -  NN  THEN  1890 
1  844  PRINT  D4 t " OPEN"Nt F t "  .L40" 

1870  PRINT  D4 t "WRITE "NtFt " .Rl ” 

1880  PRINT  NN 

1881  F  -  2 : L  -  2 

1882  COSUB  2000 

1  890  PRINT  D4t "CLOSE "NtF  t " 

1899  POKE  214.0  COTO  100 
1910  RETURN 


w  c*> 


0000  INPUT  Bt;  PRINT  B* 

0000  I*  -  CHR*  <9>  Q»  >  CHR*  <  2  7 >  D* 
-  CHR*  <4>:St  -  CHR*  ( 3 1 ) : M*  - 
CHR*  <  3 0 )  : L  *  »  CHR*  < 2 9 )  : NC »  ■ 
CHR*  <  2  >  : EX*  -  CHR*  (  1  ) 

30002  PRINT  D*"PR*0" 

50005  PRINT  D*"PR*1" 

50006  PRINT  Q*"J. 0.960,*" 

50007  PRINT  Qt " B . 6 , t " 

500  10  PRINT  I »  0 "N" 

50020  PRINT  Q* "R ,  2  ,  *" 

S0030  PRINT  M*NC* 

50100  END 

55000  D*  -  CHR*  (4):  PRINT  D*"OFEN 
ADDL 1ST" :  PRINT  D*"VRITE 
ADDLIST".  LIST  :  PRINT  D»"CLOSE" 


UTILITY  PROCRAMS  NOT 
EXECUTED  BY  AEDIT 


KEY  VARIABLES 


NN  =  TOTAL  NUMBER  OF  RECORDS  IN  A  FILE 
SZ  -  MAXIMUM  NUMBER  OF  CHARACTERS  ALLOWED  IN  A  RECORD 
T  «  CURRENTLY  ACCESSED  RECORD  NUMBER 

M$  -  CURRENT  MESSAGE  STRING 

F  =  FIRST  RECORD  TO  BE  REVIEWED  WHEN  CYCLING 
L  =  LAST  RECORD  TO  BE  REVIEWED  WHEN  CYCLING 
N$F$  *  PARTICIPANT  OR  SCENARIO  FILE  THAT  IS  CURRENTLY  BEING  READ 
OR  WRITTEN 
C$(I)«  MENU  COMMANDS 


SIM  PROGRAM 


6.1  GENERAL  INFORMATION 

The  SIM  Program  is  the  operational  program  in  the  simulation  sequence.  It 


allows  the  participant  to  make  decisions  in  response  to  messages  received. 


6.2  PREREQUISITES 

Prior  to  running  SIM,  the  proper  files  must  be  generated  from  the  programs 
described  in  Sections  2  through  5  of  this  document.  See  Section  6.4.1  for 
files  required  for  input  to  SIM. 


6.3  USING  SIM 

Detailed  instructions  for  starting  the  simulation  can  be  found  in  Criswell, 
Unger,  Swezey  and  Streufert  (1983).  In  general,  the  simulation  can  be 
started  with  the  following  commands: 


BLOAD  RUNTIME,  V03O 
GuOAD  SIMYD.OBJ  (or  SIMSTORM.OBJ  if 
the  practice  session  is  to  be  run) 
CALL  6064 


EXEC  YD.V030 


n 

6.4  FILES 

■> 

> 

£ 

6.4.1 

INPUT  FILES 

NAME:  SIM 

a 

SOURCE:  Program 

NAME:  LOC/s 

where  s  is  the  scenario  name 
SOURCE:  LEDIT 
EXAMPLE:  LOC/STORM 

NAME:  Dr 

where  r  is  a  reference  number  from 
1  to  9999  or  blank 
SOURCE:  DEDIT 
EXAMPLE:  D121 

NAME:  ATBL/s 

where  s  is  the  scenario 
SOURCE:  AEDIT 
EXAMPLE:  ATBL/STORM 

NAME:  TEXT.Mn 

where  n  is  a  message  number  from 
1  to  999 

SOURCE:  APPLE  WRITER  (TEDITOR) 

EXAMPLE:  TEXT.M25 

NAME:  TS#/s 

where  s  is  the  scenario  name 
SOURCE:  TEDIT 
EXAMPLE:  TS#/ STORM 

NAME:  TM/S 

where  s  is  the  scenario  name 
SOURCE:  TEDIT 
EXAMPLE:  TM/STORM 

6.4.2  INPUT/OUTPUT  FILES 

NAME:  Rt/p 

where  t  is  the  time,  p  is 
participant  code 
SOURCE:  SIM 
EXAMPLE:  R5/J0HN  DOE 
CONTENTS:  Message 

Real  Time  Minutes 

For  each  cycle  including 
Message  cycle: 

Real  Time  of  Day 
Number  of  Decision  Cycles 

Real  Time  of  Day  Previous  Decisions 

Real  Time  of  Day  Previous  Messages 


START  PROCRAM 


& 


ft 


1 

77 

-C1 

v' 

I 


S 


M 


HI  MEM  37000:1  >  2  00  :J  .  I  K  ■  JQI 
I  :  QJ  -  I  :  SZ  -  I  :  OS*  «  "  *  "  I S  - 
126:  REM  CHANCE 
STATEMENT-VARIABLE  OM%  TO  EQUAL 
IS 


y. 

2 

LT  •  37  00  1  :  TEXT  : CV  -  2  : 

REM 

12/28/83 

1  0 

HOME  :  VTAB  10  HTAB  10: 

PRINT 

JnK 1 

"PROGRAM  SIM" 

1  1 

COSUB  8000 

m 

20 

GOTO  500 

— 

. 

v' 

30 

PRINT  :  PRINT  D4*"IN#4": 

PRINT 

D4*"PR#4":  INPUT  "  "; 

U* :  PRINT 

■■■ 

D4  » " PR#  0 " :  PRINT  D4*“ 

INttO" : U* 

m 

jH 

LEFT*  ( U* , 1 4 1 :  RETURN 

40 

POKE  34,0:  POKE  35 , 1 : T* 

-  "TIME. 

•i  . 

IF  DT ( 2 1  <  10  THEN  T* 

■  T*  ♦  " 

0" 

v 

4  1 

VTAB  1  HTAB  l 

42 

T*  *  T*  ♦  STR*  <  INT  <  DT (2)1):  IF 

y- 

DT  <  1 1  <  10  THEN  T*  . 

T»  ♦  "0“ 

V 

44 

T*  «  T*  ♦  STR*  <  INT  (DT(l)l)  +  " 

:  '* 

»v 

IF  DT  <  0 1  <  10  THEN  T» 

■  T*  +  '* 

0" 

.2k 

46 

T*  -  T*  +  STR*  (  INT  <  DT <0)11  +  " 

STR*  <  I NT  <  DT  <  3 )  ) )  ♦ 


46 


MO  $ ( DT  <  4 )  )  + 

+  ” 

VTAB  1:  HTAB  I:  PRINT  T* ; 
34,0:  POKE  35,1 
PRINT  DH*  ,  POKE  34  .  CV 
35,23:  RETURN 
QD<QN)  -  DT(QN)  ♦  T 


STR*  <  DT<  5  >  > 

POKE 
HTAB  1  VTAB  2 
POKE 


58 

FOR 

QB  - 

QN 

TO 

4  Q I 

«  INT 

( (QD(QB) 

-  (QB 

) 

1  1  1 

/  QS  <  QB  )  1 

59 

QD  <  QB 1  . 

QD ( QB 1 

-  Q I 

*  QS(QB) : QD ( QB 

4 

1  1  . 

DT  <  QB 

+  1  1 

+  Q I  : 

NEXT  QB 

6  1 

IF 

QD  (  2  ) 

> 

23 

THEN 

QD  (  2  ) 

■ 

0 : QD<  3 ) 

m 

QD<  3  1 

♦ 

1 

62 

IF 

QD  <  3  1 

> 

28 

THEN 

QD  (  3  1 

■ 

1  :  QD ( 4 1 

m 

QD  <  4  1 

♦ 

1 

63 

IF 

QD  <  4  1 

> 

12 

THEN 

QD  <  4  1 

m 

1 : QD ( 5 ) 

m 

QD  <  5  1 

4- 

1 

70  RETURN 


500 


COSUB  40:  HOME  VTAB  20:  PRINT 
"HIT  !  TO  START  S I MUL AT I  ON "  :  PV  . 
0  PR  «  0 

GET  A*.  IF  A*  <  >  •’i”  THEN  5  10 

COSUB  7400 

513  CV  -  2 : VT  -  999??:  POKE  3 4 , CV :  HOME 

514  POKE  SW%,1:  PRINT  :  PRINT  PR* : 

PRINT  X  t  CO (  :  PRINT  P0* 

51?  PRINT  :  HOME 
520  COSUB  30 : LT*  -  U* 


5  1  0 
51  1 


540  DO%<0)  -  VAL  <  MID* 

<  LT*  .13,21): DO%<  1 ) 

<  LT* ,10,21): DO%<  2) 

<  LT*  ,7,2)1 
-  U* :  GOTO  640 


VAL  <  MID* 
VAL  <  MID* 


COMPUTES  AND  DISPLAYS 
SIMULATION  TIME 


START  OF  SIMULATION 


COMPUTES  RELATIVE  TIMES 
TO  INITIALIZE  CLOCK 


560  A* 


COSUB  30  :  At  •  Ut 
IF  LT*  ■  At  THEN  1160 
LTt  ■  At 

DNS<0>  -  VAL  <  Ml Dt 

<At  .  13 ,2)  )  : DNS< 1 >  -  VAL  <  MIDt 
< At ,  1 0 . 2 > >  : DNS< 2 >  ■  VAL  <  MIDt 
< At  ,  7  ,  2  >  > 

T  ■  <  <  DNS  <  0  )  -  DOS  <  0  >  >  ♦  <  DNS  <  1  )  - 
DOS (  1  )  )  *  60  ♦  <  DNS <  2  >  -  DOS < 2 )  > 

*  3600) 

IF  T  <  0  THEN  T  ■  T  ♦  S6400 
IF  SDS  THEN  T  -  SDSDS  «  0 
RM  «  RM  ♦  T  /  60  VTAB  1:  HTAB  33: 
IF  DMS  THEN  PRINT  I NT  (RM) ; 
VTAB  3  HTAB  1 

IF  (RM  -  VT)  >  .6  THEN  CV  -  2  :  VT  - 

99999 :  POKE  34 , CV :  HOME 
T  -  T  *  TM 

ON  -  0 :  COSUB  SO:  FOR  I  -  0  TO 
S  : DT  <  I >  »  QD<  I)  NEXT  I 
COSUB  40  FOR  I  «  0  TO  2  DOS(I)  - 
DNS  < I )  :  NEXT  I 
PKS  -  ABS  <  TS  <  PM ) > 

IF  VT  <  90000  OR  PM  >  I NT  < RM ) 
THEN  1160 

HOME  :  IF  PKS  <  10  THEN  980 


INPUT 


COSUB  9600 


910  IF  PKS  *  16  THEN  QSt  .  SMt . SMt  - 
:  COTO  921 

9  2  C  PRINT  :  HOME  :  PRINT 

D4  t 11  OPENR*  ”  ;  CDtVSt  <  4  >  ”  .  L5  00”  : 
PRINT  D4 t " RE ADR* " CD t " .R"PM:  INPU1 
QSt:  PRINT  D4t"CLOSE" 

921  PRINT  PRt 

9  2  S  COSUB  9660:  COSUB  9620:  COSUB  96  00 
COSUB  9690:  GOSUB  9990 
930  VT  -  RM 
932  PRINT  :  PRINT 
940  HOME 

960  COSUB  9630:  COTO  600 
980  PRINT  :  HOME  :  PRINT 

D4  t "OP ENTS* / " X  t "  , L  4  0 "  ;  VS  t  <  3 )  : 
PRINT  D4  t "READTS# / " X  t "  , R" PM : 

INPUT  QSt:  PRINT  D4 t "CLOSE" : 

COSUB  9100 
1000  J  -  PKS  <  4 

1005  IF  PKS  -  8  THEN  PV  -  1 

1006  IF  PKS  -  9  THEN  PV  -  0 

1020  IF  QN  -  0  AND  J  -  1  THEN  930 

1040  K  -  0  FOR  L  -  J  TO  QN : QV ( L )  - 

QV  <  L )  : K  -  K  +  NOT  US(QV(L)>: 

NEXT  L 

1060  IF  NOT  K  THEN  L  -  J:  COTO  1120 
1080  K  -  INT  <  RND  (1)  *  K>  FOR  L  •  J 
TO  QN:K  -  K  -  NOT  US<QV<L>>:  IF 
K  <  0  THEN  1120 
1100  NEXT  L 
1120  PRINT  PRt 

1140  Q I  -  QV ( L )  : TS  <  PM )  •  <  1  000  +  QI)  * 
SCN  <  TS  <  PM  > ) 

1143  US  <  QV  (  L  )  )  -  l:QSt  ■  '•', 

1148  COSUB  9504  COSUB  9660:  COSUB 
9620:  COSUB  9600:  COSUB  9690: 
COSUB  9990 

1150  IF  PKS  -  7  THEN  COSUB  9610CP  • 
CP  ♦  1  COSUB  9630:  COTO  500 
1153  COTO  930 


PRINTS  OUT  MESSAGES  AT  THE 
CORRECT  TIME 


1160  VTAB  CV  ♦  2  HTAB  1:  IF  PV  THEN 
POKE  SB%.0:  GOTO  600 
1180  PRINT  MM* 

1200  IF  PEEK  <B0%)  >  127  THEN  COSUB 
7100:  POKE  SB%.0:  POKE  SVS . 1 
1210  K  -  PEEK  ( KB% ) :  IF  K  <  128  THEN 

600 

1220  POKE  SB*.0 
1240  CY  -  0 : B*  -  " " : QU%  -  0 
1260  IF  K  •  196  THEN  1280 

1270  IF  PEEK  <B0%>  >  127  THEN  GOSUB 
7  100 

1272  COTO  600 


i  »  "D" :  H 

1NV  « 

0 : BB  -  CY 

-  0 


HOME  :Y*  - 

-  1  :  B*  ( CY  > 


SS*  -  " " : QA  «  FRE  <0) 

I  *  VAL  (  MID*  <F*,2,1))  +  7 
PRINT  D4 *" BLOAD" F*  ; VS  * (  I  > "  , A " LT 
CV  «  2 : VT  »  99999.  POKE  34, CV 
R«(CY>  « 

J  »  0  OI  -  LT : NP  (  L  >  -  PEEK  (QI):QI 

■  OI  +  l 

P  *  <  0  .  L  )  ■  :  FOR  I  -  0  TO  9999:01 

■  QI  ♦  ION  -  PEEK  (QI):  IF  QN  - 
13  THEN  1460 


1  400 

IF  QN 

m  #11*. 

1420 

P* ( J , L) 

1440 

NEXT  I 

1460 

PRINT 

1500 

IF  L  > 

1520 

IF  L  > 

GOTO  1440 


3  THEN  1700 


CHRS  (QN) 


NP ( L )  V8 ( M  >  -  0 : QS  t  -  P*(M,L>: 
GOSUB  9100: VB ( M )  -  QV ( 1 ) : P * ( M , L > 

-  MID*  (QSS , 1 . QE>  NEXT  M 
1540  QS*  -  AA» ( CY  >  0):  FOR  M  -  0  TO 

NP (  L  >  : QS  *  -  QS*  +  “  "  +  STR *  (M 
+  1)  ♦  " . "  ♦  P * ( M , L )  :  IF  M  ( 

NP ( L )  THEN  QS*  -  QS*  +  ",  " 

1560  NEXT  M:  GOSUB  9800:  FOR  QI  -  0  TO 
QN:  PRINT  QS*(QI):  NEXT  QI 
1580  PRINT 

1600  GOSUB  7  5  0  0  :  A  t  -  S* 

1620  V  m  VAL  ( A* ) :  IF  V  (  1  OR  V  >  M 

THEN  1600 

1630  IF  L  OR  RIGHT*  (P*(V  -  l,0),l)  ( 

>  THEN  1640 

1632  UQ%  ■  1:  IF  NOT  CY  THEN  QU%  «  1 
1640  NP ( L )  •  V: F*  -  F*  +  A* 

1660  IF  (BB  >  -  1)  AND  ((L  >  1)  OR  ((L 

-  1 )  AND  ( (  NOT  UQ%  AND  CY )  OR  ( 
NOT  QU%  AND  NOT  CY ) ) ) )  THEN  Y*  « 
Y*  ♦  P«(V  -  1  ,L>  ♦  ••  " 

1680  L  -  L  ♦  1 :  IF  L  (  4  THEN  1320 

1700  FOR  K  -  0  TO  8 : EQ ( 0 . K )  -  0:EQ(1.K> 

-  0  NEXT  K 
1720  L  ■  0 

1  7  40  I  -  VAL  (  MID*  ( F (  , 2 ,  1 >  )  ♦  7  . 

PRINT  :  PRINT  D4 * " BLOAD" F *; L  ♦ 

1  .  VS* ( I  ) "  ,  A"LT : R* ( CY )  ■  R* ( CY )  ♦ 

♦  F*  <•  STR*  (L  ♦  1) 

1760  J  -  0  QI  -  LT.PP(L)  -  PEEK  (QI>:QI 


J  -  0  QI  *  LT 

-  QI  ♦  1 

PP  *  (  0  .  L  )  -  "" 

-  Q I  ♦  1  : QN 


FOR  I  -  0  TO  9999 : Q I 
■  PEEK  (QI ) :  IF  QN  • 


STARTS  DECISION  STRINGS 


tf.  •  .  r.v.  V  V  ,•  -  _■  - 


13  THEN  I860 

1780  IF  QN  ■  93  THEN  J  -  J  *  1:PPI(J,L> 
-  :  GOTO  1800 

1  790  PP I <  J , L  >  •  PPt ( J , L )  +  CHRi  < QN ) 

1800  NEXT  I 

1880  PRINT  : QD  ■  0 

1900  V  -  VAL  <PI(L,3)):CI  «  MIDI 
<  PI ( L  .  3 )  ,  <  V  >  0)  ♦  1.99) 

1  920  PI  -  AA I <  C Y  >  0):  FOR  M  ■  0  TO 

PP  <  L )  : P I  STR I  <M  ♦ 

1)  ♦  +  Cl  IF  Cl  (  >  THEN 

PI  -  PI  ♦  ••  " 

1930  QO  >  0  :  QW  -  0 : QN  -  0VS1(M)  -  " ” 

1  940  QSt  -  PPMM.L)  GOSUB  9100 
1960  IF  QO  THEN  OB(M)  -  QO 
1  980  IF  QW  THEN  WHMM)  -  QWI 
1  9  90  IF  <QA)  THEN  WSKM)  -  QAI 
2000  IF  QN  >  0  THEN  2060 
2020  EQ( 1 .M)  -  0  QD  -  1 

2040  EQ (0  , M )  •  «  QV ( 1  )  :  I F  QN  >  1  THEN 

EQ  < 1  . M)  -  QV ( 2  > 

2060  PPI(M.L)  -  MIDI  (QSI.l.QE) 

2080  PI  -  PI  ♦  PPI(M.L) 

2100  IF  M  <  PP  <  L )  THEN  PI  -  PI  ♦  "," 
2120  NEXT  M 

2140  QSt  -  PI  GOSUB  9800:  I F  BB  >  -  0 

THEN  FOR  Q I  -  0  TO  QN :  PRINT 
QS I ( Q I ) :  NEXT  QI 


COMPUTES  TIME  REQUIRED  TO 
IMPLEMENT  DECISION 

2160  PRINT 

2200  COSUB  7500: QS I  -  St 

22  20  QV  <  0 )  -  VAL  <QSI>:  IF  QV ( 0 )  <  1  OR 

QV  <  0 )  >  M  THEN  220  0 

2240  QV  <  0 )  -  QV ( 0 )  -  1:  IF  QO  THEN  OB < 0 ) 

-  OB<QV<  0 )  ) 

2  260  IF  QD  THEN  EQ < 0 , 0  )  - 

EQ ( 0 , QV (  0  >  )  : EQ  (1.0)  ■  ,  EQ < 1  , QV <  0 )  ) 

2270  SSI  -  SSI  •».  WSI  (  QV  (  0  )  ) 

2280  IF  NOT  QW  THEN  2300 
2282  A I  -  WHI <QV< 0 > ) : QW  -  VAL  <At>:  IF 
NOT  QW  THEN  2290 
2  2  8  4  X  -  OM%  < l . QW ) : Y  -  OMS ( 2 , QW ) 

22  85  B I  <  C  Y  )  *  " "  :  COTO  22  96 

2290  R I <  CY )  -  R I ( C Y )  ♦  "."  +  QSI  ♦  " / "  :  X 

•  -  1 :  IF  BB  <  0  THEN  QSI  - 

“ AA l " :  GOSUB  9200:  GOTO  2293 

2291  PRINT  :  PRINT  "ENTER";:  PRINT  " 

QUADRANT:";:  INPUT  QSI:  IF  LEN 
(QSt)  >  2  THEN  GOSUB  9200 

2292  IF  X  <  0  THEN  PRINT  "ERROR,  2 

LETTERS  ♦  A  NUMBER  (I.E.AB12)": 

GOTO  2290 

2293  BI(CY)  >  Bt(CY)  ♦  "  "  ♦  QSIQQI  » 

QSI 

2294  X  *  X  ♦  OM% < 1  . 0  >  : Y  >  Y  ♦  OM% (2,0) 

2296  REM 

2300  QN  -  0 
2320  GOTO  2460 

2460  IF  BB  >  -  1  THEN  Yl  ■  Yl  ♦  Cl  ♦  " 

"  ♦  PPI ( QV ( 0 )  , L )  *  Bt  <  CY ) 

2470  RI(CY)  •  R I <  CY )  ♦  "."  +  QSI 
2480  IF  BB  >  -  1  THEN  Yl  ■  Yl  ♦  "  " 

2620  L»L+1:  IFL<  -  NP ( 3 )  THEN 
1740 

2640  IF  CY  THEN  3300 
2650  PRINT  QSI  -  Yl 
2660  ON  VB  < NP  <  1  )  -1)4-1  GOTO 


54 


m 


ADDS  THE  SUCCESS  ENC:NC 
TO  THE  DECISION  STp.  INC 

3170  IF  CD*  <  0  THEN  3190 

3172  IF  EQ (1.0)  AND  MS*  THEN  T* ( R I >  ■ 

13:01  >  910  +  I NT  <  RND  < l >  * 

8):  COSUB  9  S  0  S  :  A »  -  OS  *  COTO 
3190 

3180  QI  -  VAL  <A$>  OT*  -  QU*  COSUB 
9505  QT%  -  OU* 

3190  COSUB  9700  QT*  -  0 

3191  B*  <  0 )  *  QS* 

3200  PRINT  QI  ■  901  *  T2  COSUB  9500 
COTO  3240 

3210  PRINT  OI  >  900  COSUB  9500 


FUTURE  DECISION  START 

3240  PRINT  QI  -  904  COSUB  9500:  CET 
A*:  PRINT  A*:  IF  A*  ■  "N"  THEN 
3320 

3280  IF  A*  <  >  "V"  THEN  3240 

3280  CY  -  CY  ♦  1* 

3282  COSUB  30  COTO  1280 

3300  QS*  -  Y*  COSUB  9800  PRINT  PRINT 
'YOU  ARE  PLANNING  TO";  IF  UO* 

THEN  PRINT  "  REQUEST  "  COTO 
3310 

3305  PRINT  " : " 

3310  FOR  I  -  0  TO  ON:  PRINT  QS*<I> 

NEXT  I  B  *  (  C  Y  )  -  U*  COTO  3210 

3320  UU*  -  "N" :  IF  DN  <  2  THEN  3440 

3325  COSUB  30  UU*  -  U* 


PREVIOUS  DSC  I  SIGN  Cl  NX  INC 

3330  PRINT  HOME  QI  *  902  ♦  T2  COSUB 
9500 

3340  COSUB  7600 

3360  IF  VAL  (QS*J  -  0  AND  QS*  <  >  "0" 

THEN  PRINT  "ERR"  GOTO  3340 

3380  COSUB  9100  FOR  I  -  0  TO  QN :  IF 
QV ( I )  AND  QV ( I )  >  DN  -  1  THEN 

PRINT  "ERROR":  COTO  3340 

3400  NEXT  I : A*  -  QS* 

3440  COSUB  30:  PRINT  QI  »  903:  COSUB 
9500 

3460  COSUB  7600 

3480  IF  VAL  <QS*>  ■  0  AND  QS*  <  >  "0" 

THEN  PRINT  "ERR":  COTO  3460 

3500  COSUB  9100  FOR  I  .  0  TO  QN :  IF 

QV ( I )  AND  QV  < I )  )  MC  THEN  PRINT 

"ERROR"  COTO  3440 

3520  NEXT  I 

3540  COSUB  7400 


END  OF  DECISION  PROCEDURE 

3541  PRINT  :  HOME  PRINT  "THANK  YOU 

YOUR  DECISION  NUMBERED  "DN 

3542  IF  QU%  THEN  PRINT  "TO  REQUEST 

INFORMATION  HAS  BEEN"  PRINT 
"SUBMITTED":  COTO  3560 
3550  PRINT  "IS  BEINC  TRANSMITTED  TO  THE 
APPROPRIATE  UNITS  " 

3560  PRINT 

D4 • " OPENRt "  ,CD»"  ,L500"VS* (4)  : 

PRINT  D4 ♦ " WR ITER# " CD * " ,R"RI 
3580  PRINT  B ( ( 0 )  B  *  (  0  >  -  LT*  PRINT  RM 
PRINT  CP:  PRINT  MC  PRINT  ON 
PRINT  CY:  FOR  I  -  0  TO  CY :  PRINT 
B*  <  I )  B*  < I )  «  " "  :  PRINT 


f: 


Rt(!):R*(I>  - 

"" :  NEXT  I : 

PRINT 

UU* :  PRINT  A* : 

PRINT 

U* :  PRINT 

QSt :  PRINT  D4t 

"CLOSE" 

3590 

COSUB  9950 

3600 

PRINT  : Q I  -  905 

:  COSUB 

9500 

:  POKE 

SBS , 0 : I  «  DL 

3605 

IF  (  PEEK  (KBS) 

(  128 ) 

AND 

(I  >  0  ) 

'  THEN  I  -  I  -  1 

:  COTO 

3605 

3609 

POKE  SBS.0 

3610 

PRINT  :  HOME  : SDS  -  1 

COTO 

600 

7000  PKS  *  -  1:GDS  •  -  1:  FOR  I  «  0  TO 

2  1  1 

7002  IF  TS(I>  <  0  THEN  7050 
7005  IF  PKS  >  -  1  AND  (CDS  >  -  1  OR 

((I  >  210)  OR  (J  >  210)))  THEN 

7055 

7010  IF  PKS  >  -  1  THEN  7030 

7020  IF  ((TS(I>  <  1  OR  TS  (  I  >  >  3)  OR  I 

<  J>  AND  (TS(I>  <  10)  THEN  PKS  ■ 

I 

7030  IF  CDS  >  -  1  THEN  7050 
7040  IF  <TS(I)  >  0  AND  TS < I )  <  4)  AND 
(I  >  -  J)  THEN  CDS  -  I 

7050  NEXT  I:  PRINT  7050:  END 
7055  R I  -  CDS 

7060  IF  CDS  >  -  1  THEN  7090 

7070  R I  -  PKS 

7080  TS(RI)  -  -  TS(RI):  IF  NOT  TS  <  R I > 

THEN  TS(RI )  .  -  io 

7090  RETURN 

7100  I  «  211:  IF  SM*  <  >  " "  THEN  7130 

7110  FOR  I  -  I NT  (RM)  ♦  1  TO  210 :QI  « 
ABS  <TS< l ) ) :  IF  <QI  -  4  OR  QI  . 

5)  AND  (I  >  -  PM)  THEN  7130 

7120  NEXT  I 

7130  PRINT  D4  *  " IN# 2 " :  POKE  SVS  ♦  1.0: 

HOME  :  PRINT  “NEXT  TIME." I" 

ENTER  TIME:"::  INPUT  I 

7131  IF  I  <  0  THEN  END 

7132  IF  I  -  211  THEN  PRINT  " " :  GOTO 

7  160 

7134  INPUT  "ENTER  MESSAGE :"; SM* 

7135  IF  SM*  -  “"  THEN  7160 
7150  TS < I )  m  -  16 

7160  HOME  :  PRINT  D4«" IN#0":  RETURN 
7400  IF  DN  >  -  KDS  AND  CP  >  -  KPS 

THEN  T2  «  6 
7410  RETURN 


7500  IF  BB  >  -  1  THEN  FLASH  :  PRINT 

"SELECT"::  NORMAL  :  PRINT  "  1  TO 
"M;:  IF  < BB  >  0)  AND  <  LEN  <F»)  > 

3)  THEN  PRINT  "  OR 

7501  IF  BB  >  -  1  THEN  PRINT 

7510  POKE  SBS.0:  COTO  7550 

7520  KTAB  1:  FLASH  :  PRINT  "PLEASE 
HURRY-SELECT";:  NORMAL  : 

PRINT  "  1  TO  "M" : " 

7550  01  .  DZ 

7552  IF  BB  <  0  THEN  St  ■  "1":  COTO  7599 
7555  OJ  -  PEEK  (KBS) 

7560  IF  <  Q  J  <  128)  AND  (QI  )  0)  THEN  QI 
•  QI  -  1 :  COTO  7555 
7570  IF  OI  <  .0  THEN  7520 

7580  St  ■  CHR*  (OJ  -  128) 

7582  IF  (BB  >  0)  AND  ((St  •  "*••)  AND  ( 
LEN  (Ft)  >  3))  THEN  BB  •  -  l  St 

-  "1":  PRINT  "»  -  COMPLETE  ENTRY- 
7590  IF  BB  >  «0  THEN  HTAB  1:  PRINT 

"ENTERED: "St" 

tl 


n. 


ALLOWS  EXPERIMENTER  TC 

ENTER  MESSAGES  IN  INTERACTIVE 

MODE 


PROMPTS  AND  ACCEPTS  THE 
DECISION  ENTERED  BY 
PARTICIPANT 


57 


POKE  SBS.O:  RETURN 


KEYBOARD  CHARACTER  ACCEPT 
UTILITY  ROUTINE 

7600  OS*  ■  "" 

7620  Q I  ■  POS  ( 0 ) :  FLASH  PRINT  "  " 

HTAB  Q I  ♦  1 :  NORMAL 

7630  POKE  SBS.O 

7640  QJ  ■  PEEK  (KBS):  IF  QJ  <  128  THEN 

7640 

7650  QJ  ■  QJ  -  128 

7660  IF  QJ  •  13  THEN  PRINT  "  “  :  GOTO 
7799 

7665  PRINT  CHR*  <QJ)  ; 

7670  IF  <OJ  >  47)  AND  < Q J  <  58)  THEN 

7700 

7680  IF  (QJ  <  48)  AND  (QJ  >  43)  THEN  QJ 

«  59 

7690  IF  QJ  «  59  THEN  7700 
769  1  QS  $  «  "ERR":  PRINT  :  GOTO  779  9 
7700  QS*  *  QS*  *  CHR*  (QJ)  GOTO  7620 
7799  POKE  SBS.O  RETURN 


SET  SUBROUTINE 


8000  DIM 

MO  * (  1 2 )  . OMS (8,128). T% (211). US  (  200  ) 


DIMENSION  VARIABLES 


8001  DIM  OM (12), VS *(16) 


INITIALIZE  VARIABLES 

8004  MM*  -  "IF  YOU  WISH  TO  MAKE  A 

DECISION.  HIT  THE  'D'  KEY" 

8005  A A  *  ( 0 )  -  "ACTION  AREA :"  YD*  ■  "YOU 

HAVE  MADE  THE  DECISION  TO 
" :AA*(1)  -  "FUTURE  "  ♦  AA*(0> 

8009  DL  -  2  4  0  0 : DZ  -  4000 

8010  LSS  -  10 

8011  D4  *  -  CHR*  ( 4 )  : P  0  *  -  CHR*  (13)  + 

D4  *  +  " PR*  0 "  : PR*  ■  P0* 

8012  FOR  I  -  1  TO  12:  READ  MO* ( I ) :  NEXT 

I :  DATA 

JAN. FEB .MAR, APR. MAY . JUN. JUL , AUG , SE 
P , OCT .NOV . DEC 

8013  FOR  I  -  0  TO  5 :  READ  QS ( I ) :  NEXT 

I  :  DATA  60,60,24.28.  12.0 
8020  OH*  « 


8022  KBS  -  -  1  6  3  8  4  : SBS  »  -  1  6  368:80%  > 

-  16287: VT  -  99999: SVS  -  -  16296 

8023  IF  PEEK  (BOS)  >  127  THEN  BOS  - 

20  48 


EXPERIMENTER  INFORMATION 
ENTRY 

8024  INPUT  "ENTER  D* , Pi : " ; KD% , KPS 

8025  T2  *  6  *  (  <  KDS  <  0)  AND  KPS  <  0) 

8032  PRINT  "ALL  MOVES  SUCCESSFUL  ? 

(Y/N):";:  GET  A*:  PRINT  A*:  IF  A* 

.  -N"  THEN  8037 

8034  IF  A*  <  )  "Y"  THEN  8032 

80 36  MSS  -  1 

8037  PRINT  :  PRINT  "PRINTER  » 

(P.G.N):";:  GET  A*:  PRINT  A*:  IF 
(A*  (  >  "P")  AND  (A*  <  >  "G”) 

AND  (A*  <  >  "N">  THEN  8037 

8038  IF  A*  -  "N"  THEN  8042 


8039  PR*  *  04  *  ♦  " PR# 1 "  +  CHR*  (13) 

8040  IF  A*  ■  "G"  THEN  PR*  -  PR*  ♦  CHR* 

<  9  )  ♦  "  2  0  L  " 

8042  INPUT  "ENTER  PARTICIPANT 

CODE : " , A* : CD*  »  "/"  ♦  A*  INPUT 
"ENTER  SCENARIO:  X*  :  PRINT 

D4 * "VERI FYV/ “X  * :  PRINT 
D4  * " RE ADV / " X  *  :  FOR  !  >  0  TO  li 

8043  CET  A*:  IF  ASC  (A*)  -  13  THEN 

8045 

80  44  VS*(I>  -  VS*(I>  4-  A*  GOTO  80  43 


8045  NEXT  I  PRINT  D4 *  PRINT 
D4 * "CLOSE " 

8050  PRINT  :  PRINT  "DISPLAY  MINUTE 

MARKERS  ?  (  Y  /  N  >  :  "  ,  :  CET  A*  PRINT 

A*  IF  <  A*  ■  " " >  OR  <  <  A*  <  > 

"N" )  AND  (A*  <  >  "Y"))  THEN  8050 

8052  IF  A*  -  “Y"  THEN  DM%  »  1 

8053  PRINT 


READS  DATA  FILES  FOR 
PROCRAM  CONTROL 

8059  PRINT  D4  * "VERI FYLOC/ "X*  ; VS* ( 2 )  : 

PRINT  D4«"READLOC/ "X* 

8080  FOR  I  -  0  TO  5 :  INPUT  DT(I):  NEXT 
I :  INPUT  TM :  INPUT  SD 
8070  FOR  I  -  0  TO  IS:  FOR  J  -  0  TO  2 
INPUT  OM%  <  J . I )  :  NEXT  J:  NEXT  I 

8080  FOR  I  -  1  TO  IS:  IF  OM*(l.I)  >  . 

0  THEN  8090 

8081  INPUT  QS* :  COSUB  9 2 0 0 : OM* ( 1 . I >  .  X 

♦  OM% (1.0): OM% (2.1)  -  Y  + 

OM% (2.0) 

8090  NEXT  I:  PRINT  D4*"CLOSE" 

8  09  2  PRINT  "NEW  OR  RESTART 7  (N/R):", 

CET  A*  PRINT  A* 

8093  IF  A*  -  "N“  THEN  8500 

8094  IF  A*  (  )  "R"  THEN  8092 

8110  PRINT  D4*"VERIFYR" ,CD* ;VS*(4) : 

PRINT  D4*"R£ADR" : CD* :  INPUT 
RM , CP , MC , DN : RM  -  I NT  (RM) 

8112  PRINT  "TIME- "RM"  P*«"CP"  M*."MC" 

D* " DN : 

8115  PM  -  RM 

8120  J  -  RM  *  60  *  TM  I  -  29030400  QA  . 

5:  COSUB  9900:1  .  2419200:  COSUB 

9900 

8130  1  -  86400:  COSUB  9900:1  -  3600: 

COSUB  9900 

8140  I  -  60:  COSUB  9900:1  -  .99:  COSUB 

9900 

8150  COTO  8510 

8500  PRINT  D4< "VERIFY  TM / " X  *  ;  VS  *  (  3  ) 

850  1  PRINT  D4  * " READ  TM /" X  *  : PM  -  -  1 

8510  INPUT  TN:  FOR  I  -  0  TO  TN :  INPUT 
T%(  I  ) 

8518  IF  T%(I>  >  999  THEN  U«<T*<I>  - 

1 000 )  -  1 

8520  NEXT  I:  PRINT  D4«"CLOSE" 

8521  TN  -  210 
8530  COSUB  9630 

8700  IF  RM  THEN  8999 

8701  PRINT  :  PRINT 

D4 ( "OPENATBL / " X  *  ; VS  * ( 5  > " . L " SZ : 

PRINT  D 4  * " RE ADATBL / " X  * " , R 1 " 

8702  INPUT  J :  PRINT  D4»"CLOSE" 

8703  PRINT  D4  * "OP ENA" CD*;VS*(4)".L"SZ 

8704  PRINT  D4  * "WR ITEA"CD»"  .Rl" 

8705  PRINT  J 


PRINT  04  * " CLOSE " 

FOR  I  -  2  TO  J 
PRINT 

D4  *  "OPENATBL  /  ■*  X  *  ;  VS  *  (  5  )  " 
PRINT  D4  * " READATBL / " X  $ "  , R 
INPUT  At 

PRINT  04  t “CLOSE" 

PRINT  04  $ " OP ENA "CDt;VSt<4 
PRINT  04  I " WR I TE A " CD t "  , R" I 
PRINT  At 

PRINT  D4  t "CLOSE" 

NEXT  I 


OPENA"CDt  ; VSt  <  4  ) 
WRITEA"CDt " , R" I 


8800  FOR  I  *  921  TO  921:01  ■  I  HOME 

COSUB  9500:01  ■  905:  COSUB  9500 

GET  At :  NEXT  I 
8999  RETURN 


OW  -  0 : QO  *  0 : QN  «  0  QA  >  0 : QL  - 
LEN  ( QS  t )  : Q V (  1  )  -  0  :  QE  »  QL : QV < 0 ) 

-  VAL  ( QS  t )  :  FOR  Q I  »  2  TO  QL : 

IF  MIDt  <  QS  t  iQI  ,  1  )  <  >";**  THEN 

9  130 


PRINT  INSTRUCTIONS  TG 
PARTICIPANT 


SPLITS  CHARACTER  STRINGS 
INTO  SMALLER  STRINCS 


9110 

QN  ■  QN  * 

1 : QI  -  QI  + 

1 : QV ( QN 

+  1  ) 

m  0 : Q V ( QN )  -  VAL  ( 

MIDt 

(QSt . QI , 

99  )  ) 

9  120 

GOTO  9190 

9130 

IF  MIDt 

(QSt , QI , 

1  ) 

< 

>  "  «  '• 

THEN 

9160 

9140 

QI  ■  QI  + 

■ 

o 

o 

VAL 

(  MIDt 

(QSt  , Q I  , 

99  )  ) 

9150 

GOTO  9190 

9140 

IF  MIDt 

(QSt  , Q I  , 

1  ) 

< 

>  "i" 

THEN 

9180 

9170 

QI  -  QI  ♦ 

1  :  QW  .  1 

:  QWt 

«  MIDt 

(QSt .QI , 

99  ) 

9175 

GOTO  9190 

9180 

IF  MIDt 

(QSt  , Q I  , 

1  ) 

( 

>  "#*' 

THEN 

9199 

9  18  1 

FOR  JZ  - 

QL  TO  QI 

♦ 

1 

STEP  - 

1  : 

IF  MIDt  (QSt.JZ.l)  -  "9"  THEN 
QAt  -  MIDt  (QSt.QI.JZ  -  QI  ♦ 

1  >  :  QA  -  QI : QI  -  JZ  +  1:  GOTO  9185 
NEXT  JZ :  PRINT  9183:  END 
IF  UQ%  THEN  QU%  <  M )  ■  VAL  <  MIDt 

(QSt .QA  +  1.99)) 

IF  QE  >  QA  -  1  THEN  QE  -  QA  -  1: 
RETURN 

IF  QE  >  QI  -  2  THEN  QE  -  QI  -  2 
NEXT  QI  RETURN 


9200  X  -  <  ASC  <  LEFTt  (QSt.l))  -  65)  * 
26  ♦  ASC  <  MIDt  (QSt. 2,1))  - 

6  5  : Y  *  VAL  <  MIDt  (QSt, 3, 99)) 
9210  RETURN 


CONVERTS  TEXT  XY  STRINGS 
INTO  NUMBERS  FOR  DISTANCE 
COMPUTATION 


k~i  «o 


94  15 

94  13 
9415 

A*  «  A*  ♦  QQ* :  COTO  9412 

IF  LEFT*  (A* , 1 )  «  "3"  THEN 

PRINT 

94  20 

:  COTO  9499 

QB  -  1 : QN  a  VAL  ( A* )  I F  QN 

THEN 

9422 

QB  -  2 

1 F  QN  (  0  THEN  OB  -  3  QN  - 

-  QN: 

9423 
9425 

9424 
9430 
9440 
9499 

PRINT 

PRINT 

IF  QN  -  1  THEN  INVERSE 

IF  QN  «  2  THEN  FLASH 

PRINT  MID*  (A*. OB, 255  ), 
NORMAL  :  COTO  9410 

PRINT  D4  * '’CLOSE*'  :  RETURN 

9547 
9570 
957  1 
9575 
95  77 
9580 


QZ  »  0 . QB  -  1 :  COTO  9510 
QZ  a  1 : QB  -  1 :  COTO  9510 
QZ  *  1 : QB  a  2 

PRINT  :  PRINT 
D4  *  "  BLOADTE  XT  .  M"  Q I  ;  VS  *  <  1  )  **  ,  A ••  LT  :  QL 
a  PEEK  (43414)  4  PEEK  (43417)  * 

254  —  2  —  QZ 

IF  QZ  THEN  QQ  «  QL :  COTO  9555 
QN  a  QB  +  39:  IF  QN  >  QL  THEN  QN  a 
QL 

QQ  a  01 

IF  PEEK  (LT  ♦  QB)  -  141  THEN 
PRINT  QB  a  QB  ♦  1:  COTO  9520 

FOR  Q I  ■  QN  TO  QB  STEP  -  1 : QV 
PEEK  ( Q I  ♦  LT) 

IF  QV  -  141  THEN  QQ  -  QI:  COTO 

95  55 

IF  (QV  a  224)  OR  ( ( QV  «  32)  OR 


CONVERTS  BINARY  FILES 
FROM  APPLEVRITER  INTO 
APPLESOFT  CHARACTER  STRINCS 


«  94))  THEN  QQ  a  QI  -  1  CO 

95  55 
NEXT  OI 

FOR  QJ  a  QB  TO  QQ : QA  a  PEEK 
LT) :  IF  QA  <  44  THEN  INVER 
a  QA  ♦  44 

IF  OT%  AND  QA  <  >192  THEN 

QT*  -  0 

i;  QA  >  2  23  THEN  QA  a  QA  -  4 
IF  QA  >  128  THEN  QA  a  QA  -  1 
IF  NOT  QZ  THEN  9570 
IF  QA  (  >  13  THEN  QS9  a  QS* 

CHR*  (QA) 

COTO  9571 

PRINT  CHR*  (QA) ; 

NORMAL  :  I F  QA  ■  13  THEN  957 
NORMAL  :  NEXT  QJ 
QB  -  QJ  +  1.  IF  QZ  THEN  RETU 
QV  .  PEEK  (LT  ♦  QB):  IF  ( QV 
OR  ((QV  a  32)  OR  (QV  -  94)) 
QB  a  QB  ♦  1:  COTO  9580 
IF  QB  <  QL  THEN  PRINT  :  COT 
RETURN 


COTO 


PEEK  (QJ  ♦ 
INVERSE  : QA 

THEN  9575 


RETURN 
( QV  «  224) 
94))  THEN 

COTO  9520 


COSUB  9800:  FOR  J  -  0  TO  QN :  PRINT 
QS  $ ( J )  :  NEXT  J:  PRINT  :  RETURN 


POKE  S  B% . 0 :  PRINT  :  INVERSE  : 
PRINT  “HIT  ANY  KEY  TO  CONTINUE* 
CET  QS  * ( 9 )  :  NORMAL  :  PRINT  : 
RETURN 


PRINTS  A  STRINC 


WAITS  FOR  KEY  HIT 


PRINTS  A  MESSAGE 


9620  FLASH  : MC  -  MC  ♦  1:  PRINT  " "DH* : 

NORMAL  :  PRINT  "MESSAGE 
NUMBERb "MC :  PRINT  Tt  :  PRINT 

9621  RETURN 


PRINTS  A  DECISION 

9630  PM  b  PM  f  1:  VTAB  1:  HTAB  36:  IF 

DM%  THEN  PRINT  PM; 

9631  VTAB  CV  ♦  2 :  HTAB  1:  IF  T%<PM>  b  0 

OR  T%(PM)  .  -  10  THEN  9630 

9690  RETURN 


9650  PRINT  PR*:  PRINT  :  PRINT  :  INVERSE 

:  PRINT  ""DH*:  NORMAL  :  PRINT 
: DN  «  DN  +  1:  PRINT  "DECISION 
NUMBERb "DN :  PRINT  T* 

9651  RETURN 

9660  QL  b  LEN  (QSt):  FOR  I  b  1  TO  OL : 

IF  MID*  ( OS  *  , I  ,  1 )  b  "9"  THEN 
9670 

9662  NEXT  I  SSt  b  11  :  RETURN 

9670  SS*  b  RIGHT*  (OSt.QL  -  I  4  1):QS* 
b  LEFT*  <QS*.I  -  1):  RETURN 
9690  MG  -  1 :  GOTO  9701 

9700  MC  b  0 

9701  QL  b  LEN  <SS*>:  I F  QL  <  2  THEN 

RETURN 

9702  GOSUB  10000:1  b  0:QI  «  1 

9709  IF  MID*  <SSt,QI,l)  <  >  "9"  THEN 
9750 

9705  GOSUB  97  70  A*  b  "  ••  :  J  .  0:QI  b  QI  + 

1:  IF  MID*  ( SS  t , Q I  ,  1  )  -  "I"  THEN 

J  B  1 

9706  QI  «  QI  ♦  1  FOR  K  -  Q I  TO  QL :  IF 

MID*  (  SS  *  ,  K  ,  1  )  -  ••>*'  THEN  9  7  08 

9707  NEXT  K 

9708  IF  MID*  ( SS ( , K  4  1.1)  >  -  "A" 

THEN  9795 

9709  I  .  ASC  <  MID*  (SS*,QI,1)):  IF  I  < 

65  OR  I  >  79  THEN  9712 


97  1  0 

A*  b  AC  «  <  I 

-  6  5)1  - 

ASC 

<  LEFT* 

( A*  .  1 )  )  : 

GOTO  9715 

97  12 

A*  b  MID* 

<SS« , Q I , K 

-  QI  ) 

:  IF 

RIGHT*  <  A (  ,  1  >  >  " Q 1 

1  THEN 

A*  a  "a" 

4  QQ* 

97  15 

QM  b  VAL 

(  MID*  ( A* , 

2,9)) 

QK  a 

VAL  <  MID*  <  SS  t  . K  ♦  1,259  )).  IF 
NOT  QM  THEN  9780 

9716  IF  MG  THEN  9723 

9717  IF  J  THEN  9725 

9718  IF  <  T*h  <  R I  )  -  11  OR  T%<RI>  ■  12> 

AND  NOT  QT%  THEN  9795 

9719  QSt  b  QS*  ♦  "9!"  4  A*  4  " > "  4  STR* 

<  QK )  4  "9" 

9721  GOTO  9795 

9723  IF  <  T%  <  R I )  b  11)  OR  <T%<RI>  b  12) 
AND  QK  THEN  9795 

9729  GOTO  9730 

9725  IF  T%<RI)  <  >  13  THEN  9795 

9730  PRINT  D9 * "OPENA’ CD* " . L"SZ ; VS* < 9 > : 

PRINT  D9 * "READA"CDt " ,R"QM 

9731  INPUT  LI*:  PRINT  D9»"CLOSE":  IF  I 

<  >  61  THEN  9735 
9733  IF  QK  THEN  PRINT 

D9»" OPENA" CD*" , L " SZ ; VS *  < 9 )  :  PRINT 


REQUEST  FOR  INFORMATION 
AND  ACCOUNT  UPDATING 


D4  ♦ "WR I TEA" CD* " . R“QK :  PRINT  LI* 
PRINT  D4  t “ CLOSE " :  GOTO  9745 
PRINT  "THE  ANSWER  IS  "  GOSUB 
9790:  PRINT  :  GOTO  9745 
LI  -  VAL  (LID 

PRINT  D4  * “ OP ENA" CD* "  , L"SZ ; VS* ( 4 )  : 
PRINT  D4  * "READA"CD* "  , R"QK ;  INPUT 
LO*:  PRINT  D4 * " CLOSE "  ;  LO  -  VAL 
(  LO*  ) 


a  v 

9737 

IF 

I  . 

45 

THEN 

LO 

-  LO  -  LI 

9738 

IF 

I  - 

42 

THEN 

LO 

■  LO  *  LI 

9739 

IF 

I  « 

43 

THEN 

LO 

-  LO  ♦  LI 

M 

9744 

9745 

LI  * 
QI  - 

QN 

STR* 

(  LO) 

:  GOTO  9733 

97  7  1 

9779 

9780 

9781 
97  90 


Q I  ■  Q I  ♦  1:  IF  Q I  <  QL  THEN  9704 
RETURN 

FOR  QN  -  01  ♦  1  TO  QL :  IF  MID* 
(SS*,QN,1>  »  THEN  9779 

NEXT  QN 
RETURN 

IF  NOT  J  THEN  9719 
LI*  -  MID*  (A*, 2, 4):  GOTO  9733 
QS*  -  LI*  ZN  »  QN:  GOSUB  9800:  FOR 
I  -  0  TO  QN:  PRINT  QS*(I>:  NEXT 
I : QN  -  ZN:  RETURN 
QB  ■  1  : QS  * ( 0  >  -  QS  t  : QN  -  0  : QL  ■ 


LEN  (QSD 
RETURN 


40  THEN 


9805  QN  «  -  1 

9820  FOR  Q I  *  Q 
9830  IF  MID*  ( 
9850 

9840  NEXT  OI :  P 
9850  QN  -  QN  +  1 
<  QS  *  . QB , Q 

9855  IF  QL  -  QB 

9856  GN  -  QN  +  1 

<QS»,QL  - 
9860  RETURN 
9  9  00  K  -  I  NT  <J 
K  :  J  -  J  - 
RETURN 


SPLITS  UP  STRING  INTO 
SMALLER  STRINGS 


QB  ♦  38 
(QS* . Q I 


TO  QB 
1  >  -  ' 


STEP  - 
"  THEN 


PRINT  " END9  8  4  0  "  :  END 
1 : QS* (QN)  -  MID* 

Q I  -  QB  ♦  1 )  QB  ■  QI  ♦ 
B  >  39  THEN  9820 

1  : QS «  < QN )  -  RIGHT! 

-  QB  ♦  1 ) 

J  /  I ) : DT(QA)  -  DT(QA) 

-  K  *  I  QA  -  QA  -  1  : 


PRINT  :  PRINT 

D4 * "OPENR# " CD* ; VS * ( 4 ) " , L 5 0 0 " : 
PRINT  D4* "RE ADR "CD* " , R"PM :  INPUT 
QS ♦ :  PRINT  D4«"CLOSE“ :  IF  PR  THEN 
PRINT  PR* 

PRINT  D4*"OPENR"  ;CD*  ;VS*  (  4 >  :  PRINT 
D4  * "WR ITER" ; CD*  :  PRINT  RM :  PRINT 
CP:  PRINT  MC :  PRINT  DN :  PRINT  TN : 
FOR  I  -  0  TO  210:  PRINT  T%(I>: 
NEXT  I:  PRINT  D4*"CL0SE":  RETURN 
CV  -  PEEK  (37):  POKE  34, CV:  FOR  QI 
-  1  TO  LS%:  PRINT  :  NEXT  QI : 

PRINT  P0I:  RETURN 


STORES  RESULT  FILES  ON  DISK 


10000  FOR  I  •  1  TO  QL 

10010  IF  MID*  (SSI, 1,1)  <  >  “>■"  THEN 

10100 

10020  K  -  ASC  (  MID*  (SSI.I  ♦  1,1))  - 
65:  I F  K  (  OORK)  9  THEN  10100 
10030  FOR  J  -  I  -  1  TO  l  STEP  -  1:  IF 


SPLITS  STRING 
STRINGS 


INTO  SMALLER 


MID*  (SSt.J.l)  >  "9"  THEN  10040 
10035  NEXT  J 

10040  J  -  J  ♦  2 : AC I ( K )  •  MID*  <SS»,J,I 

-  J  ) 

10050  IF  RIGHT*  <AC»<K>.1>  ■  "0"  THEN 
AC  t  <  K )  -  LEFT*  ( AC  *  <  K  )  ,  1  >  ♦  QOt 
10100  NEXT  I:  RETURN 


MISCELLANEOUS  UTILITY 
ROUTINES,  NOT  EXECUTED 
BY  SIM. 

15000  1  •  4  1  : D  4 (  -  CHR*  ( 4 >  CD*  » 

"/CLIFF" : QM  ■  1:  GOTO  9730 
30000  INPUT  B* :  PRINT  B* 

50000  I*  -  CHR*  (9>:Q*  *  CHR*  <2?>:Dt 
-  CHR*  (4): St  .  CHR*  (31) :M*  * 

CHR*  (30)  :  L  t  -  CHR*  <29>:NCt  . 

CHR*  <  2  >  :  EX*  -  CHR*  <  1  ) 

50002  PRINT  Dt " PR#0 " 

50005  PRINT  D* " PR* 1 " 

50004  PRINT  Q* " J , 0 , 940  ,  *  " 

50007  PRINT  Q* "B  ,  4  ,  » " 

5001  0  PRINT  I  *  0 "N " 

50020  PRINT  Q* "R , 2 , » " 

50030  PRINT  M*NC ( 

50100  END 

55000  D*  -  CHR*  (4):  PRINT  Of'OPEN 
ADDLIST":  PRINT  D* "WRITE 
ADDL1ST":  LIST  :  PRINT  D*"CLOSE" : 

END 

54000  INPUT  S:  PRINT  S:  END 


KEY  VARIABLES 

CD$  -  /PARTICIPANT  NAME 
X$  -  SCENARIO  NAME 

QS$  «  DECISION  ALTERNATIVE  CHOSEN  BY  PARTICIPANT 
B$(CY)=  INFORMATION  SEARCH  REQUESTED  BY  PARTICIPANT 
OD.OH.I  =  DAYS,  HOURS,  MINUTES  REQUIRED  TO  IMPLEMENT  DECISION 
DN  «  DECISION  NUMBER 

SM$  «  MESSAGE  ENTERED  BY  EXPERIMENTER  DURING  INTERACTIVE  SESSIONS 
I  «  TIME  SLOT  NUMBER 
MC  -  MESSAGE  NUMBER 
T$  -  MESSAGE  STRING 


VEDIT  PROGRAM 


7.1  GENERAL  INFORMATION 


The  VEDIT  Program  Is  used  to  define  the  locations  of  the  various  programs 
used  in  the  simulation. 


7.2  USING  VEDIT 


7.2.1  RUN  the  VEDIT  program. 

7.2.2  Enter  the  input  scenario  to  be  edited. 
If  new,  enter  "new." 

7.2.3  The  current  volume  assignments  for  the 
16  file  groups  are  shown. 


7.3  DEFINITION  OF  FILE  GROUPS 


FILE  GROUPS  must  be  put  onto  a  single  disk  volume.  There  are  17  of  these 
file  groups  as  follows: 


0  VEDIT;  V/s;  SIM;  DEDIT 

1  TEDITOR,  TEXT.Mn 

2  LEDIT:  LOC/s 

3  TEDIT:  TS#t/s;  TM/s 

4  Rt/p;  A/p 

5  AEDIT,  ATBL/s 

6  MEASURE 

7  D 

8-16  D1-D9 


7.4  DATA  ENTRY 


The  entry  defines  the  location  of  the  slot  number,  disk  number  and  volume 
number.  Sample  entry:  ,s6,dl,v254.  Note  that  the  entry  must  begin  with 
a  comma.  This  particular  entry  would  be  correct  for  the  normal  floppy  disk 
number  1. 


TERMINATING  THE  PROGRAM 


7.5.1  Terminate  with  a  Q  command. 

7.5.2  Enter  the  scenario  name.  The  V/s  file 
will  be  written  on  the  volume  specified 
by  FILE  GROUP  0. 


FILE  FORMATS 


7.6.1  INPUT  FILE 
NAME:  V/s 

where  s  is  the  scenario  name 
SOURCE:  VEDIT 

EXAMPLE:  V/ YUGOSLAV  DILEMMA 

7.6.2  OUTPUT  FILE 
NAME:  V/s 

where  s  is  the  scenario  name 
SOURCE:  VEOIT 
EXAMPLE:  V/ YUGOSLAV  DILEMMA 


PROGRAM  LISTING 


VEDIT 


COMMENTS 


START  OF  PROGRAM 

10  REM  VEDIT 

11  TEXT  HOME 

SO  D4*  -  CHRt  (4) 

55  GOSUB  S000 
40  GOTO  1800 
100  REM 


PRINT  SCREEN  AND  ALLOWS 
USER  TO  SPECIFY  THE  VOLUME 
SLOT.  AND  DRIVE  NUMBER  FOR 
EACH  OF  THE  PROGRAMS  AND 
FILES  LISTED 

110  HOME  :  FOR  I  -  0  TO  14:  PRINT 
I  "a"VS*  <  I  >  "  ->  "TT»<I> 

112  FOR  J  -  1  TO  LEN  <VSt(I>>  IF 

M 1 D  $  (VSt(I>.J,l>  <  “ . M  THEN  115 

113  NEXT  J:  GOTO  190 

US  VS*(I)  -  LEFT*  (VSt(I).J  -  1) 

190  NEXT  I 

200  VTAB  19  PRINT  :  PRINT  "HIT  E  TO 
ED  IT , Q  TO  QUIT:  "  ; 

2 1 0  GET  A* :  PRINT  A* 

212  IF  A*  -  “Q"  THEN  900 
215  IF  A*  <  >  "E"  THEN  110 

220  INPUT  "ENTER  LINE  NUMBER: ";L 
230  IF  L  <  0  OR  L  >  14  THEN  PRINT 

"ERR":  GOTO  220 

300  VTAB  19:  CALL  -  958.  PRINT  :  PRINT 
“ENTER  DATA/ "L"  ( , S* , D# , V* > : " 

310  At  -  " " ; NV  *  0 : NS  a  0 : NC  -  0 : ND  a  0 

320  GET  B*  A  a  ASC  CB*>:  PRINT  B« ; 

321  IF  A  a  13  THEN  335 

322  IF  B I  a  THEN  NC  a  NC  ♦  1 

323  IF  Bt  -  "V"  THEN  NV  ■  NV  +  1 

324  IF  B*  «  "D"  THEN  ND  a  ND  ♦  1 

325  IF  B*  -  "S "  THEN  NS  a  NS  *  1 

332  A*  a  At  +  Bt 

333  GOTO  320 


ERROR  MESSAGE 

335  IF  <NC  <  >  3)  OR  (NV  <  >  1 )  OR 

(ND  <  >  1 )  OR  (NS  <  >  l )  OR  ( 

LEFT*  ( At , 1 )  <  >  " , " )  THEN 

PRINT  "ERR":  GOTO  300 

339  VSt(L)  a  At 

340  GOTO  110 


WRITES  A  NEW  V/SCENARIO 
DISK  FILE 

900  INPUT  "ENTER  OUTPUT  SCENARIO  NAME 
OR  RETURN  FORNO  OUTPUT  FILE:";Ft 
910  IF  Ft  a  "»  THEN  END 
999  PRINT  D4  t "OPENV /"FtVSt(O)  :  PRINT 

D4 1 "VRITEV /"Ft :  FOR  I  «  0  TO  1 4 : 

PRINT  VSt(I):  NEXT  I:  PRINT 
D4  t "CLOSE " :  END 

1  200  PRINT  D4t"PR81"  :  GOTO  200 
1500  PRINT  D4t"PRi0" :  GOTO  200 
1  800  PRINT  D4  t " CLOSE " 

1805  ONERR  GOTO  1850 


1620  IF  Ft  -  ""  THEN  1800 
1  630  PRINT  04  1”  OPENV  /‘‘Ft 
1  835  PRINT  D4  t " RE ADV  /"Ft  ;  FOR  I  •  0  TO 
1  6 

1836  At  -  "" 

1  837  CET  B t  : A  -  ASC  (Bt):  IF  A  •  13 
THEN  1840 

1839  At  -  At  ♦  Bt:  COTO  1837 

1840  VSt<I>  a  At:  NEXT  I:  PRINT  D4t 

1849  COTO  1690 

1850  INPUT  "NEW  SCENARIO?  <Y/N>  “ . ANt 

1851  IF  ANt  a  "N"  THEN  1800 

1852  IF  ANt  (  >  “V"  THEN  1800 

1855  POKE  216.0 

1890  PRINT  D4  t " CLOSE" 

1899  POKE  216.0:  COTO  100 
1910  RETURN 


DIMENSIONS  VARIABLES  AND 
DISPLAYS  PROGRAMS  AND  FILES 

8000  DIM  VSt< 16) ,TTt< 16> 

8010  FOR  I  -  0  TO  16 
8020  READ  TTt  < I )  :  NEXT  I 

8030  DATA  V/S;  VEDIT;  SIM,  DED IT , TEXT . ; 

TEDITOR; ,LOC/S;  LEDIT.TM/S; 

TS4N/S,  TEDIT.RN/P;  A/P 
8035  DATA  ATBL/S; 

AED IT. MEASURE .0,01,02,03,04,05,06, 

D7 ,D8 ,D9 
8999  RETURN 


UTILITY  ROUTINES  NOT 
EXECUTED  BY  VEDIT 

30000  INPUT  Bt:  PRINT  Bt 

50000  It  -  CHRt  <9):Qf  a  CHRt  (27)  Dt 
a  CHRt  <  4  >  : S t  a  CHRt  <  3  1  )  :  Mt  a 
CHRt  (30)  : L  t  a  CHRt  < 2 9 >  : NC t  a 
CHRt  <  2  >  EXt  a  CHRt  (  1 ) 

50002  PRINT  Dt " PR#0 " 

50005  PRINT  Dt " PR# 1 " 

50006  PRINT  Ot "J , 0 , 960  ,  t  " 

50007  PRINT  Qt"B,6 , t" 

50010  PRINT  I t  0 "N" 

50020  PRINT  Qt "R , 2  .  t" 

50030  PRINT  MtNCt 

50100  END 

55000  Dt  a  CHRt  (4):  PRINT  Dt "OPEN 
ADDLIST" :  PRINT  Dt "WRITE 
ADDLIST":  LIST  :  PRINT  Dt "CLOSE": 

END 


KEY  VARIABLES 
FS  «  SCENARIO  NAME 

TT$(16)«  NAMES  OF  PROGRAMS  AND  FILES  THAT  APPEAR  ON  SCREEN 
B$  -  USER  DEFINED  VOLUME,  SLOT,  AND  DRIVE  NUMBER 

L  -  LINE  NUMBER  ON  THE  SCREEN  THAT  IS  TO  BE  EDITED 


PROFILE  (MEASURE)  PROGRAM 


8.1  GENERAL 

The  PROFILE  program  (formerly  called  the  MEASURE  program)  analyzes 
participant  responses. 


8.2  USING  PROFILE 


Criswell,  Unger,  Swezey  and  Streufert  (1983)  provide  details  for 
operating  the  PROFILE  program. 


8.3  FILES 


8.3.1  INPUT  FILES 
NAME:  Rt/p 

where  t  is  the  time,  p  is 
participant  code 
SOURCE:  SIM 
EXAMPLE:  R5/J0HN  DOE 
CONTENTS:  Message 

Real  Time  Minutes 

For  each  cycle  including 
Message  cycle: 

Real  Time  of  Day 
Number  of  Decision  Cycles 

Real  Time  of  Day  Previous  Decisions 

Real  Time  of  Day  Previous  Messages 


NAME:  R/p 

where  p  is  the  participant  code 
SOURCE:  SIM 
EXAMPLE:  R/JOHN  DOE 

CONTENTS:  Input  File  generated  in  SIM  in 
the  same  format  as  the  TM/s. 


8.4 


PROGRAM  LISTING 


PROFILE 


COMMENTS 


100  D4S  -  CHR*  <4>:  PRINT  D4*"PR*1“: 
GOTO  200 

ISO  REM  1/5/84 

200  TEXT  CV  -  2 : CS  -  -  1  D4*  -  CHR* 

(  4  ) 

250  HOME  :  VTAB  10:  HTAB  10  PRINT 
"PROGRAM  MEASURE" 

300  GOSUB  9900 


INITIALIZATION 


READ  PARTICIPANT'S  DATA  FILES 
AND  COMPUTES  MAIN  DATA  LIST 

350  LP*<0>  ■  -  1 

400  FOR  I  *  0  TO  9  MC* <  0  .  I  i  -  1000 
NEXT  I 

450  FOR  I  -  0  TO  TN 
500  J  -  T% (  I  )  :  IF  J  <  10  THEN  400 

5  5  0  NM  «  NM  +  1  :  ML*  <  NM  >  -  1 

400  IF  ABS  <J>  <  10  OR  ABS  <  J )  >  21 

THEN  1550 

450  PRINT  D4  *  " OFENR# "  CD  *  "  .  L 5  0  0  " 

700  PRINT  04  * " RE ADR* “ CD* " . R "  I 
750  TD  .  TO  ♦  1 

800  INPUT  ML* . RM . ZP . ZM . 2D , CY 


COMPUTE  MEASURE  1 

850  ZP  «  ZP  ♦  1  Ml(ZP)  -  Ml(ZP)  4-  I  K  - 
ZD : UD% <  K )  -  0 

9  0  0  RM  «  RM  ♦  .  0  5  : RM  -  I NT  <  RM  *  10)  / 

10RMCK)  -  RM 

950  NF%  <  K )  -  CY:  IF  ZD  <  MC*<0.ZP>  THEN 
MC*(0.ZP)  -  ZD 

1000  IF  ZD  >  MC*(1.ZP)  THEN  MC*(1.ZP>  - 
ZD 

1050  FOR  L  -  0  TO  CY  INPUT 

FT* < L ) . FD* < L . K )  FD%< L . K)  -  VAL  < 

MID*  < FD* < L . K) , 3 . 3 ) ) :  NEXT  L 
1100  INPUT 

PD ( <  K  .  0  >  . PD  *  <  K .  1  )  . AM ( ( K . 0  )  . AM* ( K .  I 
)  :  PRINT  D4  t " CLOSE " 

1150  IF  NOT  P  THEN  1550 
1200  PRINT  "R"I.CD*:  PRINT  ML*.  PRINT 
"TIME«"RM:  PRINT  "PERIOD-"ZP" 

MESSAGES- "ZM 

PRINTS  OUT  MAIN  DATA  LIST 

1250  PRINT  "DECISION  NUMBER- " ZD " 

TIME-"FT* <  0 ) 

1  300  PRINT  " < "FD* < 0 . K) "  )  " .  IF  NOT  CY 
THEN  1400 

1350  PRINT  "FUTURE  DECISIONS ;  FOR  II 
-  1  TO  CY :  PRINT 

" < "FD* ( I  I  . K) " ) " ;  :  NEXT  II  PRINT 
1400  PRINT  "BASED  ON 

DECISIONS . "PD*  <  K •  1  ) 

1450  PRINT  "BASED  ON  ME SS ACE S : " AM * < K . 1 ) 

1500  PRINT 

1550  FOR  L  -  0  TO  CY:FT»<L)  -  " " :  NEXT 
L  PDi(K.O)  •  "  “:AM*(K.0>  -  •*’*: 

NEXT  I 

COMPUTES  VECTOR  LISTING 
FOR  EACH  PERIOD 

1400  MC  -  TD 
1450  PRINT 

1700  FOR  I  -  1  TO  CP  SS  -  0 : N* < I >  - 
N*< I  -  1 ) 


1710  IF  MC%<0.I>  >  MC%<1.I>  THEN  4400 
1750  FOR  J  -  HC%(0.I)  TO  MC%< 1 . I > 

1800  IF  NOT  VAL  <AM*CJ,1>>  THEN  1950 
1  65  0  OS*  -  AM »  (  J  .  1  >  :  COSUB  1  1  300  FOR  II 

•  0  TO  ON : KK  -  OV <  I  I  >  N%  <  I  >  ■ 

N%  <  I  >  ♦  1  :  K  -  N«  (  I  )  0%  <  K  .  0  >  - 

RM  <  J  >  D% (  K  ,  1  >  *  ML%(KK)  RTCK)  ■ 
RM<  J  ) 

19  0  0  0%  c  K . 3 )  -  -  KK : D%  <  K .  2 )  «  J  D% ( K . 4 ) 

•  FDfcCO.J) D%(K.5>  •  D* ( K , 4 ) : 

COSUB  9600  NEXT  II 

1  950  IF  NOT  M3  <  I >  THEN  2  100 
2000  FOR  K  -  1  TO  M3 < I >  IF  FDSkCO.J)  ■ 
TYSCK, I )  THEN  2200 
2050  NEXT  K 


COMPUTE 

2  100  M3  <  I )  *  M3  <  I >  *  1 

2150  TY*<M3(1).I)  -  FD%  <  0  .  J  ) 

2200  NEXT  J 

2 250  FOR  J  -  MC%<0.I>  TO  HC«(I.I> 

2300  IF  NF%  <  J )  <  1  THEN  3  2  5  0 

2350  FOR  K  ■  1  TO  NF%<J) 

2400  PV  -  0 

2450  IF  <  J  ♦  1  >  >  MC  THEN  3  100 

2  500  FOR  l l  ■  J  ♦  1  TO  MC 

2550  IF  FD%CK.J)  <  >  FDHC0.II)  THEN 

3050 

2400  QS«  -  PD  t (  I  I  .1)  :  COSUB  11300 
2450  JJ  -  0 

2700  IF  OVCJJ)  <  >  J  THEN  3000 

2750  NSC I )  «  NSC I >  +  1 :M  -  NS C I > : DS CM . 0 > 

«  RM  <  J  )  :  DS  C  M  .  1  >  -  RM  <  I  I  )  :  DS  <  M  .  2  ) 

-  J  :  DS  C  M  .  3  >  «  I  I  : DS  C  M , 4  >  - 

F  DS  <  0 . DS ( M , 2  >  >  : DS  <  M . 5 )  « 

FDSC  0 . DSCM . 3 ) ) 

2800  PV  -  1 :  GOSUB  9600 

2850  IF  F  DS  C  0  .  DS  ( M  ,  3  )  )  »  F  DS  C  0  ,  DS  C  M  .  2  >  > 

THEN  DS  ( M  .  2  )  -  -  J  COSUB  9600: 

COTO  2950 

29  00  UDSCJ)  -  1UMI1I)  -  1 

2950  COTO  3050 

3000  JJ  «  JJ  ♦  1  :  IF  JJ  <  .  ON  THEN 

2700 

3050  NEXT  II 

3100  IF  PV  THEN  3200 

315  0  NSC  I  )  >  NS  <  I  )  ♦  1  :  M  »  NS  <  I  )  :  DS  <  M  .  0  > 

■  RM  <  J )  DS  <  M ,  l  )  «  RM  C  J  )  : DS  <  M  ,  2  >  - 

J  :  DS  <  M  .  3  >  -  J  :  DS  <  M  .  4  )  - 
FDSC 0 . DSCM . 2 > ) : DSCM , 5 )  - 

FDSC  K . J )  :  COSUB  9600 
3200  NEXT  K 
3250  NEXT  J 

3300  FOR  J  -  MCSC0.I)  TO  MCSCl.I) 

3350  QS*  ■  PDKJ.l)  COSUB  1  1  300:  IF 
NOT  QV C  0  >  THEN  3  9  00 
3400  FOR  K  .  0  TO  ON 
3450  IF  NFSCOVCKM  <  1  THEN  3650 

3500  FOR  II  -  1  TO  NFSCQVCK)) 

3550  IF  FDSC II ,QV<K> )  *  FDSC0.J)  THEN 
3850 

3600  NEXT  II 

3  6  5  0  NS  C  I  >  -  NS  C  I  >  ♦  1  M  -  NS  <  I >  : DS  <  M , 0  > 

-  RM  <  J  )  DS  <  M  .  1  )  ■ 

RMCQVCK) ) : DSCM. 2 )  -  J : DS ( M . 3 )  « 

QV ( K ) :  : DS <  M . 4 )  * 

F  DS  (  0  .  DS  <  M  ,  2  )  )  :  DS  <  M  .  5  >  - 
FDSC  0  , DSCM . 3 )  ) 

3700  COSUB  9600  UDSCQVCX) >  -  1  UDSCJ)  > 


MEASURE  3 


38  00 
3150 
3900 

39  10 
3950 
8000 
4050 


4100 
4  150 
42  00 


4300 

4350 


IF  FD%( 0 . D*<M. 3) )  «  FD%(0 
THEN  D%  <  M .  2 )  «  -  J 

COSUB  9400 
NEXT  K 
NEXT  J 
X  9  (  I  >  -  0 

FOR  J  •  MC%<  0 .  I >  TO  MC%< 1 
IF  UD*<J>  THEN  4150 

N%  (  I  )  ■  N% <  I  )  ♦  1  M  -  N%  <  I  >  D%  <  M . 0 ) 

-  RM  <  J  >  D%  (  M  .  I  )  •  RM  <  J  )  DS  (  M  .  2  )  - 

J  D%  (  M  .  3  >  m  0  0%  (  M  .  4  )  - 


.  D4k  <  M  .  2  )  » 


VECTORS  FOR  PERIOD. 


F  D4k  (  0  ,  D%  <  M  .  2  >  )  D*  <  M  .  5  )  -  0 
COSUB  9400 
NEXT  J 

PRINT  PRINT  •VECTORS  FOR  PERU 
-I  PRINT 

FOR  K  -  N%<  I  -  1)  ♦  1  TO  N«(I): 

FOR  J  -  0  TO  5  PRINT  D* < K . J ) " 
Ns.  XT  J  PRINT  NEXT  K 

PRINT 
NEXT  I 


4340  FOR  I  - 
4345  FOR  J  • 
43  70  X 9  <  I  )  » 

4380  NEXT  J : 


1  TO  CP 

HZ% <  0 .  I  )  TO  MC%<  1  . I ) 
X 9  <  I  )  ♦  NOT  UD%<  J ) 

NEXT  I 


COMPUTES  MEASURE  14 


4450 

4700 

4750 


NV  «  0  : VT%  <  0  >  »  D% (0,4) 

FOR  K  -  0  TO  N%(CP):  IF  <<D%<K.0> 

-  D%<  K .  1  )  >  AND  ( D%<  K . 2  >  > 

D% ( K . 3) ) >  THEN  4750 
FOR  J  -  4  TO  5 : L  -  D* < K . J ) :  FOR  M 
.  0  TO  NV  IF  <VTS<M>  .  L  >  OR 
NOT  L  THEN  4700 
IF  VT%  <  M )  <  L  THEN  4450 

FOR  QI  -  NV  TO  M  STEP  -  1  VT%1QI 
+  1)  -  VT% <  Q I  )  :  NEXT  Q  I  :  NV  «  NV  ♦ 

1 : VT%<M>  -  L :  GOTO  4700 
NEXT  M : NV  .  NV  ♦  1 : VT% < NV >  -  L 

NEXT  J 

NEXT  K:  PRINT  PRINT  "NUMBER  OF 
CATEGORIES-  "NV  ♦  1:  FOR  K  •  0  TO 
NV:  PRINT  VT%<K>:  NEXT  K 


COMPUTES  NUMBER  OF  CATEGORIES 
AND  PRINTS. 


4800  FOR  I 
4850  FOR  J 


1  TO  CP 

N%< I  -  1 >  +  1  TO  N%< I > 


COMPUTE  MEASURES 


IF  <<D%<J.0>  -  D%<J.I>>  AND 
<D*(J.2>  -  D% ( J .  3  >  )  AND  ( DK» ( J . 5  >  > 

AND  <  D%  <  J . 2  >  >  0))  THEN  X  3  <  I >  - 

X  3 ( I >  +  1  :  GOTO  55  0  0 
IF  D% <  J  .  3  )  >  -  0  THEN  5  2  00 


COMPUTE  MEASURE  13 


5000  M2 ( I >  •  M2  < I >  +  l  .OE(I)  -  QE < I )  + 

RT  <  J )  -  D% <  J  ,  1  > 

5050  FOR  M  -  J  TO  N%<I)  IF  <D%<M,1>  < 

-  D% ( M . 0 )  )  OR  <  D%  <  M .  2 )  <  0)  THEN 

5  150 

5100  IF  D%(M.0>  >  D*(J.0>  THEN  5500 


COMPUTE  MEASURE  2  AND  1  I 


5150  NEXT  M : M8  < I )  -  M8 <  I  )  ♦  1  GOTO 


COMPUTE  MEASURE  8 
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ssoo 

5200  IF  M(J.I)  <  ■  Dtt<J.0>  THEN  5  4  0  0 


COMPUTE  MEASURE  12 

5250  IF  D%(J,2>  <  0  THEN  X4<I>  ■  X4(l) 

♦  1  :  GOTO  5  5  00 


COMPUTE  MEASURES  4  AND  6 

5300  M4(I)  b  M4 < I  >  ♦  i  : M6  <  I )  ■  M6 <  D  + 

0%<J.l>  -  D%< J , 0 > : F%< J )  -  1 
5350  GOTO  5500 

5400  IF  v  D% ( J . 2 )  <  0)  OR  <D*<J.1>  - 

D% ( J . 0  >  >  THEN  5  5  00 


COMPUTE  MEASURE  7 

5450  M7 (  I )  .  M7  < I )  ♦  1 

5500  NEXT  J 

5501  NEXT  I 

5510  FOR  I  b  1  TO  CP 
55 1 5  MS ( I >  b  0 

5520  FOR  J  «  N%( I  -  1)  +  1  TO  N%<I> 

5522  IF  NOT  F%<J)  THEN  5630 

5525  GOSUB  9150 

5526  GOSUB  13000 

5630  NEXT  J 

5631  NEXT  I 


PRINTS  OUT  THE  14  MEASURES 

5640  FOR  I  b  1  TO  CP 

5650  PRINT  :  PRINT  "PERIOD  "I:  PRINT 
" 1 -ME ASUREb "Ml < I >MT$  < 1 ) 

5660  DV  -  Ml < I ) :  IF  NOT  DV  THEN  DV  -  1 

5700  PRINT  :  PRINT  " 2 -MEASUREb "M2 < I > " 

"  INT  ( M2 ( I >  *  100  /  DV ) "V'MT* < 2 ) 

5750  PRINT  :  PRINT 

"3 -ME ASUREb "M3 ( I )MT* ( 3 ) 

5000  PRINT  PRINT  " 4 -ME ASUR E - " M4 < I > " 

"  INT  < M4  <  I  )  *  100  /  DV)  "VMT*  (  4  ) 

5850  PRINT  :  PRINT  " 5 -MEASUREb "MS ( I > " 

"  INT  ( MS  ( I )  *  100  /  DV ) "%"MT*  <  5 ) 

5900  PRINT  PRINT  " 6 -MEASURE- "M6 < I > " 

MINUTES"MT*  <  6 ) 

5950  PRINT  :  PRINT  " 7 -ME ASURE- "M7 < I > " 

"  INT  <M7  <  I  )  *  100  /  DV  )  "VMT*  <  7  > 

6000  PRINT  :  PRINT  " 8 -ME ASURE- "M8 ( I ) ” 

"  INT  < MB  <  I  )  «  100  /  DV  )  "VMT*  <  8  > 

6050  PRINT  :  PRINT  " 9 -ME ASURE- "M9 < I > MT* C 9 > 

6100  PRINT  :  PRINT 

" 10 -ME ASURE- "M0 < I  ) MT 1 <  1 0  > 

6150  IF  NOT  M2  <  I  )  THEN  PRINT  :  PRINT 

" 1 l-MEASURE-"0  GOTO  6250 
6200  PRINT  :  PRINT  " 1 1 -ME ASURE- "QE < I )  / 

M2  < I  ) MT* (11) 

6250  PRINT  PRINT 

" 1 2 -MEASURE- "X4 ( I  >MT*  <  1 2 ) 

6300  PRINT  :  PRINT 

" 1 3 -MEASURE- "X3  < I ) MT  *  < 1 3 ) 

6350  PRINT  :  PRINT 

" 1 4 -MEASURE- "X9  < I  ) MT 1(14) 

6400  NEXT  I 

6450  GOTO  6750 

6500  END 


READ  DATA  FILES 

6550  PRINT  D4  4 " OPENR " R I  , CD  * "  . D2 " :  PRINT 
D4 t " DE LETE " R I ,CD* :  PRINT 
D4*"OPENR"RI ,CD» :  PRINT 
D4  * " WR ITER" R I  ; CD* 

6600  INPUT  Ml  INPUT  LT«  INPUT  RM : 
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INPUT  CY :  FOR  I  «  0  TO  CY  INPUT 
Bid)  PRINT  R*(I)  NEXT  I:  INPUT 
UU* :  INPUT  A*  INPUT  U» :  INPUT 
QS« :  PRINT  D4* "CLOSE" 

10SUB  12400 

»RINT  : Q I  «  905:  COSUB  9500:  GET 
A*:  PRINT  :  HOME  : SD*  -  1  GOTO 


COMPUTES  MEASURES  15  AND 
1  6 


4750  NN  -  0  FOR  1  -  1  TO  MC : 

4800  V  -  VAL  <  MID*  ( F D » < 0 .  I  )  ,  3 .  3 >  )  :  IF 
NOT  NN  THEN  7000 
4850  FOR  JJ  -  1  TO  NN 

4900  IF  V  -  CT* (  JJ  )  THEN  7050 
4950  NEXT  JJ 

7000  NN  -  NN  ♦  1 : JJ  -  NN : CT*< J J )  -  V 

7050  NT*(JJ>  -  NT*(JJ>  *  1 
7100  NEXT  I 
7150  PRINT 

7200  PRINT  “MEASURE  15-"MT*<15>:  PRINT 
7250  FOR  I  «  1  TO  NN 
7300  FOR  J  «  I  TO  NN 

7  350  IF  NT*(J)  <  -  NT*  <  I )  THEN  7  5  00 

7400  K*  -  CT*< J ) : CT*< J >  -  CT* ( I) : CT* < I > 

-  K% 

7  4  5  0  K*  -  NT* ( J )  : NT*  <  J )  -  NT* (  I  )  NT*  <  I  ) 

«  K* 


75  00 

NEXT  J 

7550 

NEXT  I 

7600 

FOR  I  - 

1  TO 

NN 

7650 

PRINT  CT* ( I )  . NT* < I > 

7700 

NEXT  I 

7750 

N 1  *  INT 

<  <  0 

1  *  MC)  ♦  0 

5  >  :  N5 

m 

I NT  <  <  0 

5  * 

MC )  ♦ 

0.5) 

7800 

CA  -  0 : CB 

-  0  : 

CD  -  0 

:  CE  - 

0 

7850 

FOR  I  - 

1  TO 

NN  :  CA 

-  CA 

4* 

NT* ( I ) 

7900 

IF  CA  ) 

-  N 1 

THEN 

8000 

7950 

NEXT  I 

8000 

FOR  I  * 

NN  TO 

1  STEP  - 

1 

:  CB  - 

CB 

+  NT*  <  I ) 

80  50 

IF  CB  > 

-  N 1 

THEN 

8150 

8  100 

NEXT  I 

8150 

FOR  I  - 

1  TO 

NN  .  CD 

-  CO 

♦ 

NT* ( I ) 

8200 

IF  CD  > 

.  N5 

THEN 

8300 

8250 

NEXT  I 

8300 

FOR  I  - 

NN  TO 

1  STEP  - 

1 

:  CE  - 

CE 

♦  NT*  < I  ) 

83  50 

IF  CE  > 

-  N5 

THEN 

8450 

8400 

NEXT  I 

8450 

MZ  -  2  * 

(CA  - 

CB)  ♦ 

<  CO 

• 

CE) 

8500 

PRINT 

PRINT 

:  PRINT 

" 15-MEASURE- 

"MZ 

8550 

PRINT  "16-MEASURE-" 

MZ  / 

NN .MT*  <  l 6 ) 

8600 

PRINT  D4*"PR#0" :  END 

PROGRAM  TERMINATES  ON  THE 
ABOVE  LINE 


9150  Q I  -  1 

9200  FOR  M 


9250 

9350 


-  J  THEN 


L  ■  0 : QL  *  0 
-  0  TO  N*  <  C  P )  :  IF  M 

9450 

IF  NOT  F*<M>  THEN  9450 
IF  <  D*  <  M , 0  )  «  D*  <  J  .  0  >  )  OR  <  D* <  J  .  0  ) 
■  D*  <  M .  1 )  )  THEN  01-01+1:  GOTO 
9450 


SUBROUTINE  FOR  COMPUTING 
MEASURE  9 


•~V  .  -y.- 


’  •  ‘  •  *  •  •  »  *  «  *  _*  ’  ‘  m  “  •  *  •  *  »  ’  •  *  •  •  *  »  * 


‘  '.V/-’ V.n' 

^  ^  «L*  ^  **|  t  •  *  *  ,  ^  4  .  »  t  . 


74 


9400 

IF  ( D*  <  M .  1 )  .  D*(J.1)>  OR  (D*(J 
■  D*  <  M . 0 )  >  THEN  Q I  ■  Q I  +  1 

,  1  ) 

COMPUTE  MEASURE  9 

945  0 

955  9 
9600 

NEXT  M:M9(I>  .  ( D* ( J . 1 >  -  D* ( J . 

*  Q 1  ♦  M9  (  I  ) 

RETURN 

IF  N*(I)  <  1  THEN  RETURN 

0  )  ) 

9650 

9700 

9750 

9800 

9850 

FOR  LK  -  0  TO  N*(I)  -  1  FOR  LV 

0  TO  5 

IF  D* ( LK . LV )  (  >  D* ( N* ( I ) . L V ) 

THEN  9800 

NEXT  L V : N%  <  I  )  «  N*(I)  -  1  GOTO 

98  50 

NEXT  LK 

RETURN 

m 

SETUP  SUBROUTINE 

DIMENSIONS  ARRAYS 

9900  DIM  MO*(12).T*(211),LD*(50,9>,Lt(40>,T 
Y*(  2  0  . 9 )  . FD*(  9 . 2 1 1  )  ,  NF*(  2  11). MC*(  1 
, 9 )  . RM  <  2 1 1 )  , CT* (50), NT*  <  5  0  >  , U  D*  <  2 1 
1 )  . RT<  2 1 1  ) 

9950  DIM  OM(  1  2  >  .  PD*  (  2  1  0  ,  1  )  ,  AM*  (  2  1  0  ,  1  >  ,  FD*  (  9 
.210) ,ML*( 210) 

10000  DIM  MT* < 1 8 > , D*( 2 1 0 , 5 ) , QH*( 20 > , VTS  ( 2 00 ) 

. F*(  2 1 0 )  . C*(  2 1 0 ) 

10040  DIM  LC*(50) 


INITIALIZES  VARIABLES 

10050  N*  (  0  >  -  -  1 

10100  D4  »  >  CHRS  (4) 

10150  FOR  I  .  1  TO  12:  READ  MO* < I ) 

NEXT  I .  DATA 

JAN , FEB .MAR , APR .MAY , JUN, JUL , AUG . SE 
P . OCT. NOV . DEC 

10200  FOR  I  -  0  TO  5 :  READ  QS(I):  NEXT 
I :  DATA  60.60.24,28,12.0 

10250  DH »  - 

•  * 


10300  KBS  -  -  16384 : SB*  >  -  16368 


READ  PARTICIPANT  NAME  AND 
READ  DATA  LIST  PRINT  OUT 
DATA  LIST  IF  DESIRED 

10350  INPUT  "ENTER  PARTICIPANT 
CODE : " . A* 

10400  CD*  o  " / "  *  At 

10450  PRINT  PRINT  "DATA  LIST? 

<  Y / N )  :  "  ;  :  GET  A*  PRINT  A* 

10500  IF  A*  <  >  "Y"  AND  A*  <  >  "N" 

THEN  10450 

10550  IF  At  «  "Y"  THEN  P  ■  1 
10600  PRINT 

10650  FOR  I  .  1  TO  14:  READ  MT* ( 1 ) : 

NEXT  I 


INITIALIZES  MEASURE  NAMES 

10700  DATA  "  <*  OF  DECISIONS)","  <*  OF 

RESPONDENT  DEC  > "  "  (#  OF  DEC. 

CATEG-OR  I  ES  >  "  .  "  (#  OF  FWD 
INTEGRATIONS;"."  < MULT  I P L E X 1 TY 
F>" ."  (WEIGHT)"."  <*  OF  BKD 
INTEG  > " 

10750  DATA  "  <t  OF  UN I NTEG  RES  DEC . > " , " 

<  Q I S ) " . "  (WEIGHTED  QIS)"," 


75 


./.jj 


< AVE  RESPONSE  SPEED)" 

10800  DATA  "  (SERIAL  CONNECTIONS)”." 

(PLANNED  INTEGRATIONS)" 

10850  DATA  "  (CENERAL  UNINTEGRATED 
DEC . ) " 

10900  DATA  "  (SPREAD  ACROSS 

DEC. CAT  )"  (AVERAGE  SPREAD)" 

10950  GOSUB  12400 


PRINT  OUT  INTIAL  INFORMATION 

11000  PRINT  “NUMBER  OF  MINUTES  IN 
SIMULATION  INT  ( RM ) 

11050  PRINT  "NUMBER  OF  ME SS AC E S - " ; CM 
11100  PRINT  "NUMBER  OF  DE C I S 1 ONS- " . C D 
11150  PRINT  "NUMBER  OF  PERIODS*". CP  +  1 

11200  CP  -  CP  ♦  1 

11250  RETURN 


SUBROUTINE  FOR  SPLITTING 
DATA  STRINGS 

11300  QV  -  0:QO  «  0  ON  *  0 : OL  *  LEN 

(OSS  >  : Q V (  1  )  rn  0  QE  *  OL  QV(O)  - 
VAL  (QSt)  FOR  QI  .  2  TO  QL  .  IF 
MID*  (QSt .01 , 1 >  (  >";"  THEN 

11400 

11350  QN  -  ON  ♦  1:01  -  OI  *  1:0V (ON  *  1) 

.  0  QV(QN)  *  VAL  (  MID* 

(OS* .QI , 99 ) ) 

11400  IF  QE  >  QI  -  2  THEN  QE  -  QI  -  2 

11450  NEXT  QI  RETURN 

11500  X  -  (  ASC  (  LEFT*  (QSt.l))  -  65)  * 

26  +  ASC  (  MID*  (QSt, 2.1))  - 
6  5  : Y  -  VAL  (  MID*  <QS*.3,99)> 

11550  RETURN 


SUBROUTINE  FOR  CONVERTING 
BINARY  (APPLEVRITER  FILES) 
TO  CHARACTER  INFORMATION 

11600  QD(QN)  -  DT ( QN )  +  T 

11650  FOR  QB  -  QN  TO  4  QI  *  INT 

((QD(QB)  -  (QB  )  1>)  /  QS ( QB ) > 

11700  QD(QB)  *  QD(QB)  -  Q I  * 

QS ( QB ) : QD ( QB  ♦  1)  «  DT ( QB  ♦  1)  ♦ 

QI  NEXT  QB 
11750  RETURN 

11800  GOSUB  11900:  FOR  J  *  0  TO  QN : 

PRINT  QS » ( J )  :  NEXT  J:  PRINT  : 

RETURN 


WAIT  SUBROUTINE 

11850  POKE  -  16368,0:  PRINT  :  INVERSE 
.  PRINT  "HIT  ANY  KEY  TO 
CONTINUE":  GET  QSI(9>:  NORMAL  : 

RETURN 


SUBROUTINE  FOR  LIMITING 
LENGTH  OF  TEXT  LINES 

11900  QB  *  1  QSt(0)  -  QSt: ON  -  0 : QL  * 

LEN  (QS*):  if  QL  (  40  THEN 

RETURN 

11 950  QN  *  -  1 

12000  TOR  QI  *  QB  ♦  38  TO  QB  STEP  -  1 
120;,')  IF  MID*  (QSt.QI.l)  ■  "  "  THEN 
12  150 

12100  NEXT  QI :  PRINT  "END9840"  END 
12150  QN  «  QN  ♦  1:08* (ON)  ■  MID* 

(QSt.QB.QI  -  QB  t  1)  OB  •  OI  «  1 
12200  IF  QL  -  QB  >  39  THEN  12000 


RIGHTS 


12250  ON  ■  QN  ♦  1  OSS(QN)  - 

( QS  S  .  GL  -  QB  ♦  1  ) 

12300  RETURN 
1235C  K  «  INT  <J  /  I ) : DT ( Q A )  «  DT ( QA )  * 

K  J  .  J  -  K  *  2  QA  *  QA  -  1: 
RETURN 


12400  PRINT  D4S "READR" ; CDS  INFUT 

RM. CP, CM, CD  INPUT  TN  FOR  I  *  0 
TO  TN  INPUT  TSk(I)  NEXT  I.  PRINT 
04$ "CLOSE'  RETURN 


SUBROUTINE  FOR  READING 
DATA  FILES 


SUBROUTINE  FOR  COMPUTING 
MEASURES  5  AND  10 

13000  REM  WEIGHTED  QIS 

13010  QC*(0)  «  0QCS(1)  =  0  QCHi2)  -  2 

13090  FOR  JK  «  0  TO  1 

13092  FOR  I  I  ■  0  TO  2 1 0  :  C* <  I  I  >  *  NOT 
FS(II):  NEXT  I  I  :  C* < J )  -  1:LC*<0> 

*  J 

13095  PT  *  0 

13100  FOR  JJ  =  N%<0)  +  1  TO  N*<CP> 

13110  IF  C%(JJ>  THEN  13900 
13115  FOR  JL  -  0  TO  1 
13114  MF  -  0 

13120  IF  ( D% <  J  J . JL )  <  >  DS ( J , JK  )  >  THEN 
1  3890 

13130  OCH(JK)  «  QC4KJK)  +  1:CS(JJ)  -  1 

13135  IF  <  JK )  THEN  QC%<2)  -  QC%(2>  + 

1  MF  -  1 

13140  PT  *  1  LCS(PT)  -  JJ 

13190  FOR  JM  «  N%<0)  ♦  1  TO  N*<CP> 

13195  IF  C*<JM>  THEN  13400 

13200  IF  <D%<JM.JL>  <  >  D%<LC%<FT>.< 

NOT  JL ) ) )  THEN  13400 

13210  PT  =  PT  ♦  ILCSCPT)  -  JM:OC*<JK>  * 

QC*<JK)  ♦  1 

13215  IF  MF  AND  NOT  JL  THEN  QC<i4(2)  - 

OC%(2)  *  1 
13220  C%(JM)  ■  1 
13230  COTO  13190 
13400  NEXT  JM 

13405  IF  NOT  PT  THEN  13890 

13410  PT  -  PT  -  1:  IF  PT  THEN  13190 

13890  NEXT  JL 

13900  NEXT  JJ 

13910  NEXT  JK 

13920  QI  -  t  ♦  OC%<0)  +  QC%(1> 


1  39  30 

M0  <  I  )  - 

M0  <  I  > 

<  D%<  J  .  1  >  -  DS4  <  J  .  0  >  )  »  QI 

COMPUTE 

MEASURE  10 

tn  <y  i 
«<►  l 
ty  o*  l 
ww  | 

*“•  *4  | 

M5  <  I  >  « 
RETURN 

QC%<  2 )  ♦  M5 ( I  > 

COMPUTE 

MEASURE  5 

MISCELLANEOUS  UTILITY 
SUBROUTINES  <NOT  EXECUTED 
BY  MEASURES  PROGRAM) 

50000  IS  -  CHRS  (9)  QS  «  CHRS  <  2  7  >  DS 
-  CHRS  <  4 )  : S  S  «  CHRS  (31>:MS  ■ 

CHRS  (30)  : L  S  >  CHRS  <29>:NCS  - 
CHRS  <  2 )  ,  EXS  -  CHRS  (  1  ) 

50010  . PRINT  DS "PR*0" 

50020  PRINT  DS  "  PR*  1  •• 

50030  PRINT  QS"J, 0,940  .  S" 


500  4  0  PRINT  Q*,,B.«,*" 

50050  PRINT  1*0 "N" 

500 t>0  PRINT  0* "R . 2 , * " 

50070  PRINT  MtNC I 
50  0  SO  END 

50090  D*  m  CHR*  <4>.  PRINT  D*"OPEN 
ADDLIST" .  PRINT  D*"WRITE 
ADDLIST":  LIST  :  PRINT  DI"CLOSE": 
END 


KEY  VARIABLES 

INITIAL  DATA  LIST  VARIABLES 
RM  *  NUMBER  OF  MINUTES  IN  SIMULATION 
CM  -  NUMBER  OF  MESSAGES  IN  SIMULATION 
CD  «  NUMBER  OF  DECISIONS  IN  SIMULATION 
CP  *  NUMBER  OF  PERIODS  IN  SIMULATION 
CDS  =  /PARTICIPANT'S  NAME 

MAIN  DATA  LIST  VARIABLES 
ML$  -  DECISION  ALTERNATIVE  SELECTED 

RM  -  TIME  IN  SIMULATION  WHEN  DECISION  WAS  MADE  (REAL  MINUTES) 

ZP  *  PERIOD  IN  WHICH  DECISION  WAS  MADE 

ZM  -  NUMBER  OF  MESSAGES  THAT  PRECEDED  A  DECISION 

FT$(0)  -  REAL  TIME  WHEN  DECISION  WAS  MADE 

FDS(O.K)  *  DECISION  ALTERNATIVE  CODE 

FD$(II,K)  =  FUTURE  DECISION  CODE 

POS  K,l)  *  DECISION  NUMBERS  OF  PREVIOUS  RELATED  DECISIONS 
AM$(K,1)  *  DECISION  NUMBERS  OF  PREVIOUS  RELATED  MESSAGES 
ZD  =  DECISION  NUMBER 


MANIPULATING  KEY  VARIABLES 


Although  the  preceding  section  describes  procedures  for  changing  scenario 
variables,  it  seems  appropriate  to  devote  additional  attention  to  the 
procedures  required  to  manipulate  key  variables  such  as: 

1)  Time  compression,  decision  charge  time, 
and  start  time 

2)  Information  load 

3)  Length  of  session 

4)  Ratio  of  responsive  to  fixed  messages 

5)  Ratio  of  successful  to  unsuccessful  messages 

Further,  a  discussion  of  the  system's  capability  to  operate  interactively 
is  warranted. 

Time  compression,  amount  of  time  charged  for  each  decision  made  by  the 
participant,  and  simulation  start  time  can  be  manipulated  with  the  LEDIT 
program.  After  this  program  is  run  and  the  Yugoslav  Dilemma  scenario  has 
been  loaded  (using  the  L  command),  the  user  should  press  the  T  key  in  order 
to  inspect  the  time  multiplier,  charge  time,  and  start  time. 

The  value  of  the  time  multiplier  (MUL  on  the  screen)  determines  the  number 
of  simulation  seconds  that  elapse  for  each  real  time  second.  The  charge 
time  (CHR  on  the  screen),  when  multiplied  by  the  MUL  value,  determines  the 
amount  of  time  that  is  charged  for  each  decision  that  is  made.  Start  time 
is  displayed  in  day,  month,  and  year.  These  values  are  easily  changed  by 
entering  new  values  on  the  keyboard. 

Information  load,  length  of  a  session,  ratio  of  responsive  to  fixed  messages 
and  successful  to  unsuccessful  messages  can  all  be  manipulated  through  the 
TED IT  program.  For  all  manipulations,  run  the  TEDIT  program,  press  L  to 
load  the  scenario,  then  press  E  to  edit. 


Information  load  is  manipulated  by  using  the  EDIT  command  of  the  TEDIT 
program.  If  more  messages  are  required  in  a  scenario,  simply  enter  a 
message  number  at  each  point  in  time  a  message  is  to  be  added.  Similarly, 
to  reduce  load,  use  the  EDIT  command  to  remove  messages  from  a  scenario. 

To  review  the  current  sequence  of  messages  by  minute,  select  C  (for  cycle) 
from  the  Command  Menu,  and  select  the  minutes  desired  for  review.  (For 
example,  to  review  minutes  0  through  5,  enter  0,5  when  asked  for  seconds 
desired  in  the  cycle.  An  example  and  explanation  of  a  listing  from 


minutes  0  to  14  follows: 


SAMPLE 

0>4: RANDOM  (NOT  CHECKED)  MESSAGE 
25 

SOVIET  AGENTS  IN  BULGARIA  NEAR  SOPHIA 
ARE  TRAINING  REBEL  YUGOSLAV  FORCES. 
BULGARIAN  GOVERNMENT  PROVIDING  TRAIN¬ 
ING  ASSISTANCE. 


1 >0 : NO  MESSAGE 


2>0: NO  MESSAGE 


3>3: SUCCESS  MESSAGE  423 
3  HAS  HAD  THE  FOLLOWING  RESULT: 

120 

BULGARIAN  MILITARY  FORCES  MOBILIZING 
ON  BULGARIA/ YUGOSLAV  BORDER  AND 
POSING  THREAT  TO  YUGOSLAVIA. 


4>0:N0  MESSAGE 


5>0:N0  MESSAGE 


6>3: SUCCESS  MESSAGE  423 
3  HAS  HAD  THE  FOLLOWING  RESULT: 

52 

THE  YUGOSLAV  COMMUNITS  HAVE  PUBLI- 
CALLY  CALLED  FOR  DOLANC'S  RESIGNA¬ 
TION  TO  PUT  AN  END  TO  HIS  AUTHORI¬ 
TARIAN  PRACTICES. 


7>0:N0  MESSAGE 


8>0:N0  MESSAGE 


COMMENT 

Minute  0  is  a  fixed  message, 
message  type  4.  Message  #25 
appears. 


Minutes  1  and  2  have  no  message. 


Minute  3  may  be  a  responsive 
message;  if  option  is  used, 
this  message  will  be  successful, 
message  type  3.  If  no  responsive 
message  is  due,  fixed  message  #120 
will  appear. 

Minutes  4  and  5  have  no  message. 


Minute  6  is  like  Minute  3.  If 
fixed  message  appears,  it  is 
message  #52. 


Minutes  7  and  8  have  no  message. 


SAMPLE 


COMMENT 


9>3: SUCCESS  MESSAGE  423  Minute  9  is  like  Minute  3. 

3  HAS  HAD  THE  FOLLOWING  RESULT: 

11 

THE  KREMLIN  INDICATES  THAT  THE 
SOVIETS  WILL  INVADE  YUGOSLAVIA  IF 
ANY  MORE  YUGOSLAV  REBELS  ARE 
IMPRISONED. 

10>0:N0  MESSAGE  Minutes  10  and  11  have  no  message. 

11 >0: NO  MESSAGE 

12>4: RANDOM  (NOT  CHECKED)  MESSAGE  Minute  12  has  fixed  message  #17. 

17 

POWER  PLANTS  IN  EASTERN  MACEDONIA 
HAVE  BEEN  SABOTAGED.  AREA  WILL  BE 
WITHOUT  ELECTRICITY  FOR  2  DAYS. 

1 3>0 : NO  MESSAGE  Minutes  13  and  14  have  no  message. 

14>0:N0  MESSAGE 

To  change  session  length,  simply  change  the  time  at  which  the  scenario's 
break  message  ("This  is  the  end  of  a  period.  You  may  now  take  a  break...") 
and  end  message  ("This  is  the  end  of  the  simulation.")  appear.  Presently, 
two  break  messages  appear,  one  every  30  minutes,  and  the  end  message  appears 
30  minutes  later.  As  an  example,  to  change  the  length  of  the  first  period 
from  30  to  10  minutes,  delete  the  break  message  (#70)  from  the  minute  30 
slot  and  place  it  in  the  minute  10  slot.  With  TEDIT  in  edit  mode,  enter 
30  (for  minute  30)  when  asked  T?  Enter  0  (from  the  menu)  to  delete  the 
message  from  that  slot.  Next,  with  TEDIT  in  edit  mode,  enter  10  for 
minute  10  when  asked  T?  Enter  7  (from  the  menu)  for  the  break  message  type, 
then  70  for  the  real  message  number  to  be  inserted  in  the  minute  10  slot. 

The  new  array  must  then  be  saved  (S  on  the  command  menu). 

The  current  versions  of  the  STORM  and  YUGOSLAV  DILEMMA  scenarios  present  two 
types  of  messages:  fixed  and  responsive.  Fixed  messages  are  those  that 
appear  regardless  of  the  decision  alternatives  executed  by  the  participant. 
Responsive  messages  are  related  to  the  decisions  executed  by  the  participants. 
In  order  to  vary  the  ratio  of  responsive  to  fixed  messages,  use  the  EDIT 
command  of  TEDIT  to  change  the  messages  that  are  to  appear  during  a  run. 
Increasing  the  number  of  fixed  messages  requires  entering  the  number  of  the 
message  that  is  to  appear  at  each  point  in  time.  Increasing  the  number  of 


responsive  messages  is  somewhat  more  complicated  as  there  are  two  methods  for 
presenting  responsive  messages.  In  their  present  form,  the  scenarios  present 
specific  responsive  messages.  These  responsive  messages  are  tied  to  decisions 
made  by  participants  through  account  attachments  on  the  end  of  decision  string 
phrases  (see  Section  4.3.7).  For  example,  if  the  decision  is  made  to  increase 
credit  to  Yugoslavia,  the  account  attachment  @?=45>0@  that  appears  at  the  end 
of  the  decision  string  will  cause  record  number  45  of  file  A/PARTICIPANT  to  be 
printed  as  a  responsive  message  at  the  first  available  slot  in  TEDIT  (after 
the  decision  has  been  completed).  To  increase  or  modify  this  type  of  responsive 
message,  one  must  change  the  coding  at  the  end  of  decision  alternatives,  create 
text  records  in  the  AEDIT  program,  and  indicate  when  the  responsive  messages  are 
to  appear  in  the  TEDIT  program.  The  latter  task  is  accomplished  by  inserting  a 
successful  message  ending  (431)  at  each  point  in  time  where  a  responsive  message 
is  desired. 

The  second  method  for  presenting  responsive  messages  is  less  complicated  but 
presents  more  general  messages.  This  type  of  message  simply  repeats  the  deci¬ 
sion  that  was  executed  and  then  indicates  a  successful,  unsuccessful,  or  neutral 
outcome.  To  use  this  type  of  responsive  message,  the  following  steps  must  be 
taken: 

1)  Disable  current  responsive  messages  by  deleting 
the  @?=>0  code  that  appears  at  the  end  of  DSP. 

2)  Create  message  endings  using  TEDITOR. 

3)  Insert  these  message  endings  (failure,  success, 
neutral)  into  a  scenario  by  using  the  EDIT 
command  of  the  TEDIT  program. 

Interactive  Mode 

The  current  system  does  not  operate  interactively.  That  is,  once  a  scenario  has 
been  set  up,  as  described  above,  it  will  run  as  planned  until  it  has  ended. 
However,  the  system  has  been  designed  so  that  it  can  operate  interactively  if 
additional  code  is  written  for  this  purpose.  In  an  interactive  mode,  the 
experimenter  presses  a  button  on  a  game  paddle  to  indicate  that  he  or  she  wants 
to  enter  a  message.  He  or  she  then  enters  a  message  on  the  keyboard  and  the 
time  in  the  simulation  that  it  is  to  appear.  This  feature  allows  for  more  pre¬ 
cise  feedback  and  greater  realism.  Preliminary  coding  for  the  interactive  mode 
occurs  in  lines  7000-7410  of  the  SIM  program. 


SCORING  PARTICIPANTS'  RESPONSES 


During  the  course  of  the  simulation  all  information  relating  to  participants 
decisions  are  recorded  on  the  R#/PARTICIPANT  NAME  file.  This  text  file  is 
updated  every  time  a  decision  is  made.  The  PROFILE  program  reads  this  file 
in  order  to  calculate  the  14  measures. 

An  example  of  a  typical  output  from  the  PROFILE  program  is  presented  below: 


EnIER  PARTICIPANT  COPES  COMPLEX  TEST 


PAT  A  LIST?  <Y/N)SY 


NUMBER  OF  MINUTES  IN  SIMULATION! 74 
NUMiEF  OF  h'".SSAGES*24 
NunPEF  OF  PECISIONS-38 
NUrtbEK  OF  FEkIODS*^ 

YOL)F.DpL:hl&ION&TO  REPUCE  CREPIT  TO  YUGOSLAVIA  BY  1  MILLION  HOLLARS  @!-2B  25& 


TIME-32.5 

piciilON  NUMBER*17&  TIME-06/16  21>53>36 
» >1-1331 . 1  ) 

FUTURE  PEC1S10NS!<  >1-1211.1  ) 

BASEL  ON  PEC I SIGNS !  9  >  10 
BASEI-  ON  MESSAGES !0 


t0UFDPEC1SI0n5T0  SENP  MESSAGES  CONCERNING  THE  POTENTIAL  IMPOSITION  OF  ECONOMIC  SA 
NCI  IONS  10  1  HE  RUSSIAN  AMBASSAPGR 
1 lMt  ».?4 . 5 

PER 100*2  MESSAGES-12 

PEC  i SION  NUMBER-18  TIML-06/1B  21>55>52 

i  >02111 .1102112. 1  > 

BASEI-  ON  PECISIONS  S  0 
PASLP  On  messages: 0 


K'UF:DPECIS10n510  REPUCE  EXPORTS  OF  HIGH  TECHNOLOGY  PRODUCT S  TO  RUSSIA 
iln_*3e>.£> 

FEF.10P-2  MESSAGES-12  „  „  , 

PEC1SI0N  NUMBER*! V  TIME-06/18  21>57>45 
i>P1121.1> 

Ft-IUF.E  PEClSIONSJv  >01211.1  ) 

BASEL-  Or-  PEC  IE  IONS !  0 
BASEI-  ON  MESSAGES! 0 


CONCERNING  THE 
AMPASSAPOR 


R5/C0MFLEX  TEST 

YOuR  PECISXON  10  SENP  MESSAGES 
5  IN  YUGOSLAVIA  10  THE  RUSSIAN 
1 InE-38.5 

PER 1 OP- 2  MESSA&ES-13 

PEL i SI ON  NUMBER-20  TIME-06/1B  21 >59153 
v  >1-2131. 1.02132. 1  > 

FUTURE  PECISIOnSJ(  >01321.1 > 

BASEL-  ON  PECISIONSJO 

paslp  on  messages: o 


POTENTIAL  INVOLVEMENT  OF  U.S.  FORCE 


F.7/C0MFLEX  TEST 
YC-uF.  PEC1SI0N  TO  SENP 
i0l!2  kill  M  THE  RUSSIAN 
TlnE*40.5 
If.  I  OP-2  MESSAGES-1 3 

PEC 1 SI ON  NUMPER-21  TIME 


PIFLOMATS  10  PI&CUSS  POTENTIAL  IMPOSITION  OF  ECONOMIC  SANC1 
AMPASSAPOR  6- !  79>756 


ELISION  NUMPER-21  flME-06/16  22>02>2B 

!  >02211 .1*02212.1 > 

FUTURE  PECISIONS!:  >01321.1 > 

PASLP  ON  PECISIONStO 
BASEL-  ON  MESSAGES  :0 


R6/C0MPLEX  TEST 

IThN  ^RUSSIA™  lMSASS«i0KMeT«7V°7S6SCUSS  F'°TENTIAL  RESUMPTION  OF  NORMAl  TRAL't  w 
TIME-42 .  5 

PERIOD- 2  MESSACES-13 

DELLSIUn^NUMBER^  TIME-06/16  22i04i50 

FUTURE  DECISIONS::  FD1321.1) 

M.SEI'  on  decisions:o 

BASED  ON  MESSAGES  .*0 
KV/COnFLEX  TEST 

rOuf.  DECISION  TO  REDUCE  EXPORTS  OF  FOOD  TO  RUSSIA  HAS  SEEN  SUCCESSFULLY  COMPLETE 
TIME-. 5 

tkttio1*  NUmIIrS  1 E &T I ME-06/ IB  1 9  i  40 i 3B 

^  9  V 1111*1  / 


FUTURE  I'ECISIONS:<  iD1121.1  > 

EASEL'  ON  I'ECISIONS:N 
BASED  ON  MESSAGES!  1 

R10/C0MFLEX  TEST 

YOUR  I'ECISION  TO  REI'UCE  IMPORTS  OF  MANUFACTURE  I'  GOODS  FROM  RUSSIA 
TlnE-44.5 

PERIOD-2  MESSAGES-13 

DECISION  NUHBER-23  TIME-06/18  22i07il2 
Y  ill  1221 . 1  ) 

EASEL'  ON  DECISIONS: 15i  IB 
EASEL'  ON  MESSAGES:  13 

R1 1/COMPLEX  TEST 

YOUR  I'ECISION  TO  ARRANGE  A  CONFERENCE  WITH  CABINET  MEMBERS  TO  ASSESS  PREVIOUS  PO 

lI'ICAL  ACTIONS  B!-B3>B5ei 

TIME-46.5 

PERIOD-2  MESSAGES-14 

I'ECISION  NUMBER-24  TIME-06/18  22110151 
i  il'2311.1  ) 

EASEL'  On  DECISIONS : 0 
EASEL'  On  MESSAGES:  14 

R13/ COnPLEx  TEST 

TOuF.  I'ECISION  TO  SENl'  MESSAGES  CONCERNING  THE  POTENTIAL  IMPOSITION  OF  ECONOrul  SA 

NCUONS  TO  THE  RUSSIAN  AMBASSADOR 

TlME-4b.5 

PERIOD- 2  MESSAGES-14 

DECISION  NUMBER-25  TIME-06/18  22il2i53 

\  >D21 11 • 1 »D2112 . 1  ) 

EASED  ON  DECISIONS:© 

EASED  ON  MESSAGES: 14 

PI 4 /COMPLEX  TEST 

YOUR  I'ECISION  TO  ALERT  U.S.  SIXTH  FLEET  TO  PREPARE  TO  MOVE 
TIME-50. 5 

FER10D-2  MESSACES-14 

DECISION  NUMBER-26  TIME-06/16  22»14i50 
»  il'Slll  .  1  ) 

FUTURE  DECISIONS::  > D3221 . 1 i D3222 . 1  > 

BALED  On  DECISIONS*.  14 

eased  on  messages:o 

R1 S/COMPLEX  TEST 

l  uuR  DECISION  TO  REDUCE  EXPORTS  OF  HIGH  TECHNOLOGY  PRODUCTS  TO  RUSSIA  HAS  EEEN  S 
UCCESSFULLY  COMPLETED. 

TIMl-2.5 

PEP10D-1  MESSAGES- 1 

DECISION  NUMBER-2  TIME-06/18  19.42143 
:  *Dl 121.1 ) 

future  decisions::  >D32ii. 1103212. 1  > 

EASED  On  DECISIONS:! 

EASED  ON  messages:: 

R16/C0MPLEX  TEST 

YC'Ur.  DECISION  TO  REI'UCE  IMPORTS  OF  RAW  MATERIALS  FROM  RUSSIA 
UriE-52.5 

fCfIOD-2  MESSAGES-15 

DECISION  NUMEER-27  TIME-06/18  22»17*16 
v  -D1211 . 1 > 

FUTURE  DECISIONS::  il'3221 . 1  il'3222 •  1  ) 

EaSlD  Gn  DECISIONS :i6il7H9 
EASED  ON  messages: 0 

R17/L0MPLEX  TEST 

YOUR  DECISION  TO  REDUCE  EXPORTS  OF  FOOD  TO  RUSSIA 


TInE-54 . 5 

FERlpD-2  MESSAGES-! 
I'ECISION  NUMBER-28  T 


: i Dll 11.1 > 

FUTURE  DECISIONS::  I D3221 . 1 > D3222 • 1 > 

BASED  ON  DECISIONS'.O 
BASED  ON  MESSAGES :0 

FIB/COMPLEX  TEST 

YOUF  DECISION  TO  MOVE  U.S.  SIXTH  FLEET  TASK  FORCE  A  TO  THE  ADRIATIC  SEA  HAS  BEE 
N  SUCCESSFULLY  ACCOMPLISHED. 8 > -2/ 208 
TIME-4. l 

PERIOD-1  MESSAGES-2 

DECISION  NUHBER-3  TIME-06/1B  19145103 


IME-06/1B  22 i 19144 


84 


(  S  1*3211  . 1FD3212.1  ) 

FUTURE  DECISIONS*.!  >01211.1  M  »D3221 . 1F03222 . 1  > 

BASE.Ii  ON  DECISIONS: 2 
BASSE'  ON  MESSAGES: 0 

R19/C0MFLEX  TEST 

YOUk  I'ECISION  TO  REDUCE  CREDIT  TO  BULGARIA  BY  1  MILLION  I'OLLARS  8! -2b  24b 
T1ME-S6.S 

PEkIOD-2  MESSAGES-IS 

I'ECISION  NUMBER-29  TIME-06/18  22F22S04 
v  il'1321.1  ) 

FUTURE  l'ECISIONS:<  » D3221 . 1 » D3222 . 1  ) 

BASED  ON  I'ECISI0NS:2O;21>22 
BASED  ON  MESSAGES :0 

R20/C0MPLEX  TEST 

YOUR  I'ECISION  TO  ARRANGE  A  CONFERENCE  WITH  CABINET  MEMBERS  TO  PLAN  FUTURE  ROLiTi 

CAL  ACTIONS  8! -84  >668 

T1ME*08.S 

PERIOD-2  MESSA&ES-15 

DECISION  NUMBER-30  TIME-06/16  22*24*40 
<  S 02321 . 1  ) 

FUTURE  DECISIONS:!  *03221 . 1 *03222. 1  > 

BASED  ON  DECISIONS: 14 
BASED  ON  MESSAGES :0 

R21 /COMPLEX  TEST 

YOUR  DECISION  TO  REDUCE  IMPORTS  OF  RAW  MATERIALS  FROM  RUSSIA  HAS  BEEN  SUCCESSFUL 
LT  COMPLETED. 

T 1ME-6.U 

PERIOD-1  MESSAGES-3 

DECISION  NUMBER-4  TIME-06/16  19*48*08 

!  *01211.1  ) 

FUTURE  DECISIONS*.!  *03221.1*03222.1  > 

BASED  ON  DECISIONS:3 
EASED  UN  MESSAGES :o 

F22/CGMPLEX  TEST 

YOuF  DECISION  TO  REDUCE  EXPORTS  OF  FOOD  TO  RUSSIA 
T  lML-oO .  ii 

FERIOD-2  MESSAGES- 16 

DECISION  NUMBER-31  TIME-06/16  22*27,06 
iil'llll.1) 

FUTURE  DECISIONS:!  *03221 . 1 *03222. 1 > 

BASED  ON  DECISIONS :0 
BASED  ON  MESSAGES :u 

R23/C0MPLEX  TEST 

YOUk  DECISION  TO  SEND  MESSAGES  CONCERNING  THE  POTENT I AC  IMPOSITION  OF  ECONOMIC  SA 

NOTIONS  TO  THE  RUSSIAN  AMBASSADOR 

TlML«e>2.S 

PERIOD- 3  MESSAGES- 18 

DECISION  NUMBER-32  TIME-06/19  00*01*50 

\  *02111.1*02112.1  ) 

BASED  ON  DECISIONS :o 
BAAED  On  MESSAGES: 16 

Ri. /COMPLEX  TEST 

YuUk  DECISION  TO  TRANSMIT  FALSE  INFORMATION  ABOUT  PLANNED  US  MILITARY  ACTIONS  IN 

Russia 

Tlnt-o4 .5 

PEK10D-3  MESSAGES- 19 

Of Cl SI On  NUmBER-33  TIME-06/19  00*03*51 
! • D4 111 .  1  ) 

FlTURE  DECISIONS:!  * D2231 • 1 1 D2232 . 1  > 

BASED  UN  decisions: 0 
BASED  ON  MESSAGES: 19 

R26/C0MPLEX  TEST 

YOUR  DECISION  TO  REDUCE  EXPORTS  OF  HIGH  TECHNOLOGY  PRODUCTS  TO  RUSSIA 
TlM£*ti6.5 

PERIOD-3  MESSACES-20 

DECISION  NUMBER-34  TIME-06/19  00*06*26 
( >01121.1 > 

FUTURE  DECISIONS:!  *01221.1 ) 

Based  on  decisions :o 

BASED  ON  MESSAGES:!/ 

R27/C0MPLEX  TEST 

YOUF:  DECISION  TO  MOVE  U.S.  AIR  FORCE  INTERCEPTOR  SQUADRONS  ( W.  GERM)  TO  AIRFIELD 


INTERCEPTOR  SQUADRONS  (  W.  GERM)  TO  AIRFIELD 


i  liy  BRITAIN  B!-51>466 
TInE  -ofa .  5 

PERIOD-  u  MESSAGES-21 

DECISION  NUMBER-35  TIME-06/19  00JUF38 
v  FD3221.1iD3222.1 > 

FuiuRL  DECISIONS:!  ID1211.1  X  FD1331.1  X  »  D223 1 .  1 . D2232 . 1  ) 

DADlD  On  DEC IS I  DNS ! 26 i 27 . 26. 29 1  30 F  31 
BAllD  (jn  MESSAGESJO 

f 2*/ COMPLEX  TEST 

tJuR  DECISION  TO  REDUCE  IMPORTS  OF  RAW  MATERIALS  FROM  RUSSIA 
Tint.  =  7  0.0 

F  ER1GD-3  HESSAGES-22 

DElISIun  NUMBER-36  TIME-06/19  00F15.21 
v .01211 . 1 > 

future  decisions:!  ioiiu.i  > 

BACtD  ON  DECISIONS: 35 
BArtl'  On  MESSAGES  !0 

R 31/ COMPLEX  TEST 

lu-JR  DECISION  TO  REDUCE  IMPORTS  OF  MANUFACTURED  GOODS  FROM  RUSSIA  WAS  NOT  SULLEb 
SF  Ol  . 

I ImE-b.5 

Ftf  101'- 1  MESSAGES- 3 

I'Ll  i SIL'N  NUMBER-5  TIME-06/18  19S50.46 
!  f  L'1221 . 1  ) 

Future  DECISIONS:!  SD3221.1ID3222.1  ) 

BASED  ON  I'ECISI0NS:0 
IAS  Li'  ON  MESSAGES  :o 

K2 2/ COMPLEX  TEST 

loot  DECISION  TO  REDUCE  CREDIT  TO  YUGOSLAVIA  BY  1  MILLION  DOLLARS  8'-28  258 
l  int -72 .  5 

PERIOD* 5  MESSAGES-23 

DliUIOn  NUMBER-37  TIME-06/19  00F17F25 

\ SD1331 .1  ) 

FUTURE  DECISIONS:! »D1111.1 > 
based  UN  DECISI0nS:35 
BASED  On  MESSAGES  5  0 

F:33/ COMPLEX  TEST 

UJL'R  DECISION  TO  SEND  DIPLOMATS  TO  DISCUSS  POTENTIAL  INVOLVEMENT  OF  U.S.  FORCES  I 
t.  T  uGUoLAVi  A  WITH  THE  RUSSIAN  AMBASSADOR  8!-79>75fe 

TinE  *74 . 5 

rER10D-3  MESSAGES-24 

DECISION  NUMBER-38  TIME-06/19  00J19J39 
< i D2231 . 1 i D2232. 1 > 

FaClD  On  DECISIONS: 33f 35 
BaSlD  On  nESSAGES : U  • 

R33  /lOMi'  lEX  TEST 

too.-  DECISION  TO  REDUCE  EXPORTS  OF  HIGH  TECHNOLOGY  PRODUCTS  TO  RUSSIA  HAS  BEEN  S 
ullLESFUlLY  COMPLETED. 

T I Ml -10.5 

F  CF  iC'I'-l  MESSAGES-4 

Dcu 1  SION  NUMBER-6  TIME-06/18  19F53.25 

i.  Jil 121 . 1  ) 

DASH  On  DECISIONS  JO 
BASLE  ON  MESSAGESJO 

Ri*/ COMPLEX  TEST 

luL'F  Dt  0IS10N  TO  MOVE  U.S.  AIR  FORCE  INTERCEPTOR  SQUADRONS  <W.  GERM)  TO  AIRFIELD 
S  In  BRITAIN  HAS  BEEN  SUCCES&FULLV  ACCOMPLISHEB. 8 ! 

-01 -46tf 
T 1 nt *12. 5 

FtKiOD-l  MESSAGES-5 

I'LL i S i ON  NUMBER-7  TIME-06/18  19F55F17 
(  )  Ds.Pl  .  1 1 1'3222 . 1  ) 

Future  DECISIONS!!  »D3211.1ID3212.1  X  ID3221.1FD3222.1  X  il>1311 . 1  X  > D2121 . 1 FD212-’ .  1  ) 

BASED  ON  DECISIONS: 3i 4 15 
BAStD  On  MESSAGESJO 

R42/C0MFLEX  TEST 

TOUR  DECISION  TO  MOVE  U.S.  AIR  FORCE  INTERCEPTOR  SQUADRONS  (W.  GERM)  TO  AIRFIELD 
S  In  BRITAIN  HAS  BEEN  SUCCESSFULLY  ACCOMPLISHED . 9 ! 

•51.-468 
TIME-14. 5 

PEF  IC'I'-l  MESSAGES-5 


DECISION  NUMBER*B  T IME*06/16  19>59<39 
:  >  1*3221 . 1  i  I' 3222 . 1  ) 

FUTURE  DECISIONS::  <1*3221.1  <03222.1  ) 
BASED  ON  DECISIONS  !  7 
BASED  On  messages  :s 


Fee/ COMPLEX  TEST 

TOUF.  DECISION  TO  REDUCE  CREDIT  TD  RUSSIA  BY  1  MILLION  DOLLARS 


WAS  NOT  SUCCESS!- Ul 


TIME=16.b 

REF.  101**1  MESSAGES*6 

I'EtiSlON  NUMBER“9  TIM£*06/18  20<04<OS 
(  *1*1311.1  ) 

Future  L'Ecisions:<  >r*i3ii.i  x  <Di33i.i  > 

BASED  On  DECISIONS: 7 

based  on  messages::. 

Rofc'CGMFLEX  TEST 

YOU!.  DECISION  TO  SEND  MESSAGES  CONCERNING  THE  POTENTIAL  RESUMPTION  OF  NORnAL  TRAD 
E  TC*  THE  RUSSIAN  AMBASSADOR  WAS  NOT  SUCCESSFUL. 

TIME*iB.S 

PER 1 0D= 1  MESSAGES*7 

DECISION  NUMBEP*10  TIME-06/1B  20<06<55 
(  *  1*2121 . 1  >  D2122 . 1  ) 

FUTURE  decisions::  <1*1331.1 X  »D2211.1»D2212.1  ) 

BASED  ON  decisions:? 
based  on  messages :o 


R70/ COMPLEX  TEST 

TOUR  DECISION  TO  MOVE  U.S.  AIR  FORCE  INTERCEPTOR  SQUADRONS  <U.  GERM)  TO  AIRFIELD 
S  IN  BRITAIN  HAS  BEEN  SUCCESSFULLY  ACCOMPLISHED. 6  * 

*iil.;4£if 

T1 ME*20 . S 

PERIOD* 1  MESSAGES*7 

l'EL  I S  l  C*n  NUMBER*!  1  TIME=06/18  20<09<53 

t  >  1*3221 . 1 < 1*3222 . 1  ) 

FUTURE  DECISIONS::  <1*321 1.1  >1*3212.1  > 

BASED  On  DECISIONS:  ts 
BASED  On  MESSAGES :o 


R'o/COMPLEX  TEST 

TOUR  DECISION  TO  REDUCE  CREDIT  TO  RUSSIA  BY  1  MILLION  DOLLARS  WAS  NOT  SUCCESSFUL 
11 ME *22. 5 

PER  1 01**1  MESSAGES=B 

DECISION  NUMBER-12  TIME*06/16  20F12F29 
:  <1*1311. 1  ) 

BASED  ON  DECISIONS: 9 
BASED  ON  MESSAGES!© 


F 7  &/CGMF  LEX  TEST 

TOUR  DECISION  TO  REDUCE  CREDIT  TO  BULGARIA  BY  1  MILLION  DOLLARS  HAS  BEEN  SUCCESS 
FULLY  COMFlETED  •  #  !  -28.)  246* 

TInL=24.S 

PER  1 01**1  MESSAGES*9 

DECISION  NUMBER*13  TIME-06/1B  20*14)25 
*  <  1*1321 . 1  ) 

BASED  C*N  decisions:© 

BASED  On  MESSAGES:© 


R64/CGMFLEX  TEST 

1  OUR  DECISION  TO  ARRANGE  A  CONFERENCE  WITH  CABINET  MEMBERS  TO  PLAN  FUTURE  R0LIT1 
CAL  ACTIONS  WAS  not  successful. 

TIMt  *1*6 .  i* 

F  EF.  101**1  MESSA&ES-9 

DECISION  NUMBER*14  TIME-06/18  20<16<51 
<  <1*2321.1  ) 

FUTURE  DECISIONS::  11*2321.1  X  ID3111.1  ) 

BASED  UN  decisions:© 

BASED  On  MESSAGES:© 

RBa/ COMPLEX  TEST 

YOUR  DECISION  TO  REDUCE  EXPORTS  OF  FOOD  TO  RUSSIA  HAS  BEEN  SUCCESSFULLY  COMPLETE 
TiMt*2B.5* 

FER10D-1  MESSACES*10 

DECISION  NUMBER*15  TIHE-06/18  20 > 19) SO 

:  <1*1111.1 ) 

BASED  ON  DECISIONS !0 
BASED  On  MESSAGES !V 


R68/C0MPLEX  TEST 

YOUR  DECISION  TO  MODE  U.S.  SIXTH  FLEET  TASK  FORCE  A  TO  THE  ADRIATIC  SLA  HAL,  DLL 
N  SUCCESSFULLY  ACCOMPLISHED. 6 ! >22208 
T I ML* 30. t 

PERIOD*!'.  MESSAGES*  11 

DECISION  NUMDER-16  TIME-06/18  21)50)59 
(  )D2J2U.1)D3212.1  > 

FUTURE  DECISIONS:)  HU211.1 > 

BASED  ON  DECISIONS:?} 11 
BASED  On  MESSAGES :0 


number  OF  CATEGORIES-  19 
111 
112 
121 
122 
131 
122 
123 
211 
212 
213 


23: 

311 
32 1 

411 

rEr.IOD  1 

1 - MEASURE* 10  (*  OF  DECISIONS) 

2- MEASUHE-5  33%  <*  OF  RESPONDENT  DEC.) 

i-HEASURE* 10  (#  OF  DEC.  CATEGORIES) 

4- MLASURE-13  66X  (•  OF  FWD  INTEGRATIONS) 

5- MEASURE— 133  BB6X  (  MULTIPLEXITY  F  > 
e-MEASURE-1 16  MINUTES  (WEIGHT) 

'-MEASURE-0  OX  (*  OF  BKD  INTEG > 
b-MEASURE-2  13%  <*  OF  UNINTEG.RES.DEC.  ) 
c-riLASURE-562  <  QIS  ) 

10- MEASURE -2002  (WEIGHTED  GIS  ) 

11 - MEASURE-2. 9  ( AWE . RESPONSE  SPEED) 

12- MEASURE-4  ( SERIAL  CONNECTIONS  ) 

1 3- MEASURE- 1  (PLANNED  INTEGRATIONS) 

14- MEASURE-4  (GENERAL  UNINTEGRATED  DEC.) 
PERIOD  2 

1 - MEASURE- 16  (•  OF  DECISIONS) 

2- MEASURE-3  18X  (♦  OF  RESPONDENT  DEC.) 

3- MLASURE-14  (t  OF  DEC.  CATEGORIES) 

4- MEASURE- 12  75X  (#  OF  FWD  INTEGRATIONS) 

5- MEASUKE-96  600Z  (MULTIPLEXITY  F> 
e-MEASURE-184  MINUTES  (WEIGHT) 


88 


A 

A 


/-MEASURE*;.'  12%  (♦  OF  BKD  INTEC) 

E-mEASUF:E*3  18%  (♦  OF  UNINTEC. RES . DEC .  ) 

9-MEASURE -1312  <  CIS  ) 

I  O-Ht ASuRE-3874  (WEIGHTED  G1S  > 

I I  -MEASURE *3. 63333333  C  AVE . RESPONSE  SPEED  > 

12- MEASURE-O  (SERIAL  CONNECTIONS) 

13- MEASURE*0  ( PLANNED  INTEGRATIONS) 

14- MEASURE-2  (GENERAL  UNINTEGRATED  DEC. > 

PERIOD  3 

1- MEASURE-7  (•  OF  DECISIONS ) 

2- nEASURE*2  28%  (*  >F  RESPONDENT  DEC.) 

3- MEASURE-7  (*  OF  DEC.  CATEGORIES) 

4- MEASURE-4  57%  (•  OF  FWD  INTEGRATIONS) 

5- MEASURE**  65%  ( MULT1PLEXITY  F) 

e-MEASURE-22  MINUTES  (WEIGHT) 

7 -MEASURE-0  0%  (*  OF  BKD  INTEG  ) 

B-MEASURE*1  14%  (*  OF  UNINTEC. RES. DEC.  ) 

9- MEAGURE=134  (  OIS  ) 

10- MEASURE-612  (WEIGHTED  QIS ) 

11- MEmSURE* .5  (  AVE. RESPONSE  SPEED) 

12- MEASURE-O  (SERIAL  CONNECTIONS) 

13- MEASURE-3  (PLANNED  INTEGRATIONS) 

14- MEASUF:E=2  (GENERAL  UNINTEGRATED  DEC.) 

The  information  presented  in  the  sample  output  above  has  been  summarized 
in  Table  1.  Using  the  data  in  Table  1,  a  diagram  called  a  time-event 
matrix  was  constructed  and  is  presented  in  Figure  4.  This  matrix  contains 
a  point  for  each  decision  and  clearly  shows  decision  connections.  The 
horizontal  axis  is  time,  the  vertical  axis  is  decision  category.  Forward 
integrations  are  noted  by  diagonal  lines  with  a  forward  arrows, 
backward  integrations  are  diagonals  with  a  backward  arrowy-  ,  serial 
connections  are  horizontal  lines  with  a  forward  arrow  . 


Below  is  a  detailed  explanation  of  the  calculation  of  each  of  the  14 
measures.  This  explanation  will  refer  to  Table  1  and  Figure  4.  This 
explanation  relies  heavily  on  Appendix  G  of  Criswell,  Unger,  Swezey 
and  Streufert  (1983). 


TABLE  1. 

DATA  STORED  ON  R#/PARTICIPANT  NAME  FILE 

DECISION  # 

DECISION 

NUMBERS 

BASED  ON  FUTURE  PREVIOUS 

MESSAGE  DECISIONS  DECISIONS 

TIME  DECISION 
,  INITIATED 

PERIOD  1: 

1 

1111 

1 

1121 

- 

.5 

2 

1121 

1 

3211,  3212 

1 

2.5 

3 

3211 

- 

1211,  3221, 
3222 

2 

4.5 

4 

1211 

• 

3221,  3222 

3 

6.5 

5 

1221 

- 

3221,  3222 

- 

8.5 

6 

1121 

- 

- 

- 

10.5 

7 

3221 

3211,  3212, 
3221,  3222, 
1311,  2121, 
2122 

3,  4,  5 

12.5 

8 

3221 

5 

3221,  3222 

7 

14.5 

9 

1311 

5 

1311,  1331 

7 

16.5 

10 

2121 

- 

1331,  2211, 
2212 

7 

18.5 

11 

3221 

- 

3211,  3212 

8 

20.5 

12 

1311 

- 

- 

9 

22.5 

13 

1321 

- 

- 

- 

24.5 

14 

2321 

- 

2321,  3111 

- 

26.5 

15 

mi 

9 

- 

- 

28.5 

PERIOD  2: 

16 

3211 

- 

1211 

7,  11 

30.5 

17 

1331 

- 

1211 

9,  10 

32.5 

18 

2111 

- 

- 

- 

34.5 

19 

1121 

- 

1211 

- 

36.5 

20 

2131 

- 

1321 

- 

38.5 

21 

2211 

- 

1321 

- 

40.5 

22 

2221 

- 

1321 

- 

42.5 

23 

1221 

13 

- 

15,  18 

44.5 

24 

2311 

14 

- 

- 

46.5 

25 

2111 

14 

• 

- 

48.5 

26 

3111 

0 

3221,  3222 

14 

50.5 

27 

1211 

- 

3221,  3222 

16,  17,  19 

52.5 

28 

1111 

- 

3221,  3222 

- 

54.5 

29 

1321 

- 

3221,  3222 

20,  21,  22 

56.5 

30 

2321 

- 

3221,  3222 

14 

58.5 

31 

1111 

- 

3221,  3222 

- 

60.5 

PERIOD  3: 

32 

2111 

18 

- 

62.5 

33 

4111 

19 

2231,  2232 

- 

64.5 

34 

1121 

- 

1221 

- 

66.5 

35 

3221 

- 

1211,  1331, 
2231,  2232 

26,  27,  28, 
29,  30,  31 

68.5 

36 

1211 

- 

mi 

35 

70.5 

37 

1331 

- 

nil 

35 

72.5 

38 

2231 

90 

33,  35 

74.5 

Figure  4.  Sample  time-event  matrix 


Number  of  decisions  (Measure  1)  is  the  total  number  of  decisions  executed 
within  a  simulation  period.  To  score  a  decision,  a  participant  must: 

•  Enter  the  decision  code. 

•  Execute  the  decision  (by  pressing 
RETURN  when  the  computer  asks  if 
the  decision  should  be  executed). 

Every  decision  is  counted  even  if  the  same  decision  is  executed  more  than 
once. 

As  shown  in  Table  1  and  Figure  4,  15  decisions  were  executed  during  period  1, 
16  in  period  2,  and  7  in  period  3.  The  category  numbers  of  the  decisions  are 
also  available  in  Table  1  and  Figure  4. 

Number  of  respondent  decisions  (Measure  2)  is  the  total  number  of  decisions 
executed  within  a  simulation  period  based  on  a  previous  message.  To  score 
a  respondent  decision,  a  participant  must: 

•  Execute  a  decision 

•  Report  that  the  decision  was  based  on 
a  previous  message  or  messages 

If  one  decision  was  based  on  two  messages,  then  two  respondent  decisions 
are  scored  for  that  one  decision,  and  so  forth.  Thus,  the  number  of 
respondent  decisions  may  exceed  the  total  number  of  decisions. 

From  Table  1,  we  see  that  five  respondent  decisions  were  executed  in  period  1 
(with  category  numbers  111,  112,  322,  131,  and  111).  We  calculate  this  by 
counting  the  number  of  decisions  reported  to  be  based  on  a  message,  counting 
each  decision  once  for  as  many  messages  on  which  it  Is  based.  Table  1  shows 
three  respondent  decisions  In  period  2,  and  two  in  period  3. 

Also  for  Measure  2,  the  printout  gives  the  proportion  of  respondent  to  total 
decisions;  In  this  case,  5/15  or  33*  for  period  1,  3/16  or  18%  for  period  2, 
and  2/7  or  28%  for  period  3. 


Number  of  decision  categories  (Measure  3)  is  the  total  number  of  decision 
categories  used  within  a  simulation  period.  A  decision  category  is  the 
first  three  digits  of  a  decision  code,  or  a  decision  choice  sequence 
through  the  first  three  choice  options.  Decisions  coded  1211  and  1213 
are  in  the  same  category  (121),  but  decisions  coded  1211  and  1221  are 
in  different  categories.  The  decision  category  of  each  executed  decision 
is  scored  only  once  no  matter  how  often  it  is  selected  within  a  period. 

From  Table  1,  we  see  the  decision  categories  selected  in  order  in  period  1 
are:  111,  112,  321,  121,  122,  112  (already  selected),  322,  322  (already 
selected),  131,  212,  322  (already  selected),  131  (already  selected),  132, 

232,  and  111  (already  selected)  for  a  total  of  10  categories  used  in  period  1. 
The  14  categories  in  period  2  are  scored  for  each  decision  except  decision 
numbers  25  and  31  whose  categories  were  already  scored. 

Each  decision  in  period  3  fell  in  a  different  category  for  a  total  of  seven. 

Number  of  forward  Integrations  (Measure  4)  is  the  total  number  of  forward 
integrations  originating  within  a  period.  The  integrations  may  be  com¬ 
pleted  within  the  period  of  origination  or  in  a  later  period.  To  score  a 
forward  integration,  a  participant  must: 

•  Execute  a  decision 

t  Plan  a  future  decision  in  another 
decision  category 

•  Execute  the  planned  decision  (or 
any  decision  in  the  same  category 
as  the  planned  decision) 

•  Report  that  the  planned  decision 
was  based  on  the  previous  decision 
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To  calculate  number  of  forward  integrations  from  Table  1,  we  start  at 
decision  1,  code  111.  At  the  time  of  execution,  decision  112  (in  a 
different  category  from  111)  was  planned.  Later,  at  decision  2,  112 
was  executed,  and  the  participant  reported  that  decision  112  was  based  on 
previous  decision  1  (which  is  decision  111).  Thus,  the  forward  inte¬ 
gration  is  complete. 

From  Table  1,  we  count  the  following  forward  integrations:  decision  1  to  2, 
2  to  3,  3  to  4,  3  to  7,  4  to  7,  5  to  7  (7  to  8  does  not  count  because  both 
are  in  the  same  category),  7  to  9,  7  to  10,  7  to  16,  (8  to  11  does  not  count 
because  they  are  in  the  same  category;  9  to  12  is  also  within  a  category), 

9  to  17,  10  to  17,  11  to  16,  and  14  to  26  (14  to  30  is  within  a  category). 

It  is  easy  to  count  forward  integrations  from  Figure  4.  Simply  count  the 
diagonals  with  a  forward  arrow.  (Horizontal  lines  do  not  count  because 
they  connect  within  category  decisions).  Using  Figure  4,  the  12  forward 
integrations  in  period  2  are  17  to  27,  16  to  27,  19  to  27,  20  to  29, 

21  to  29,  22  to  29,  26  to  35,  30  to  35,  27  to  35,  29  to  35,  28  to  35,  and 
31  to  35.  In  period  3,  the  four  forward  integrations  are  35  to  36,  35  to  37, 
35  to  38,  and  33  to  38. 

Also  for  this  measure,  the  printout  includes  the  proportion  of  forward  inte¬ 
grations  to  total  decisions.  For  period  1,  this  ratio  is  13/15  or  86%; 
for  period  2,  12/16  or  75%;  for  period  3,  4/7  or  57%. 

Multiplexity  F  (Measure  5)  Is  the  sum  of  the  count  of  each  forward  integra¬ 
tion  scored  within  a  period,  plus  all  forward  integrations  originating  and 
ending  In  the  endpoint  of  each  forward  integration,  plus  all  forward  inte¬ 
grations  originating  (not  ending)  in  the  endpoint  of  subsequent,  directly 
connected  integrations  leading  to  the  end  of  the  simulation. 

Multiplexity  F  reflects  future  planning.  As  any  one  integration  leads  to 
other  integrations,  multiplexity  increases.  Three  sample  calculations 
follow. 
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The  sample  below  diagrams  seven  connected  forward  integrations  (indicated 
by  the  arrow  at  the  end  of  the  diagonals).  For  example,  decision  C  was 
planned  at  decisions  A  and  B,  and  when  C  was  executed,  it  was  reported 
based  on  A  and  B. 


We  will  use  this  diagram  to  explain  the  calculation  of  Multiplexity  F  for 
integration  BC. 

BC+AC+CD+CE+EF+FG  *  6 

HG  does  not  count  because  it  ends,  not  begins,  at  the  endpoint  of  the 
forward  integration  FG,  which  Is  not  the  integration  of  interest.  AC 
counts  because,  for  the  Integration  of  interest,  BC,  all  integrations 
connected  to  its  endpoint  are  connected.  If  all  seven  integrations  were 
scored  in  one  period,  the  total  for  the  period  would  be  the  sum  of  the 
values  for  each  Integration. 

To  calculate  Multiplexity  F  for  period  3  in  the  sample,  refer  to  the  time 
event  matrix  (Figure  4)  and  to  Table  2. 

Period  2  of  the  sample  provides  a  more  complex  example.  See  Table  3. 

Weight  or  Integration  time  weight  (Measure  6)  is  the  sum  of  the  time  elapsed 
from  initial  to  endpoint  decision  for  each  forward  integration  scored  in  a 
period.  Time  In  this  measure  is  real  minutes  of  simulation  time.  For  exampl 
If  time  from  original  decision  A  to  planned  and  executed  endpoint  decision  C 


TABLE  2 

MULTIPLEXITY  F  CALCULATION  FOR  PERIOD  3 
FOR  SAMPLE  PARTICIPANT  "COMPLEX  TEST"  . 

(from  Criswell,  Unger,  Swezey  and  Streufert,  1983) 


FORWARD  INTEGRATIONS 
SCORED  IN  PERIOD  3 


ALL  FORWARD 
INTEGRATIONS 
DIRECTLY  CONNECTED 
TO  THE  ENDPOINT 


FORWARD  INTEGRATIONS 
ORIGINATING  AT  THE 
ENDPOINT  OF 
SUBSEQUENT  CONNECTED 
INTEGRATIONS 


CALCULATIONS 


TABLE  3 

MULTIPLEXITY  F  CALCULATION  FOR  PERIOD  2 
FOR  SAMPLE  PARTICIPANT  "COMPLEX  TEST" 

(from  Criswell,  Unger,  Swezey  and  Streufert,  1983) 


FORWARD  INTEGRATIONS 
SCORED  IN  PERIOD  2 


ALL  FORWARD 
INTEGRATIONS 
DIRECTLY  CONNECTED 
TO  THE  ENDPOINT 


FORWARD  INTEGRATIONS 
ORIGINATING  AT  THE 
ENDPOINT  OF 
SUBSEQUENT  CONNECTED 
INTEGRATIONS 


CALCULATIONS 


16-27 

19-27 

27-35 

35-36 

35-37 

35-38 

17-27 

19-27 

27-35 

35-36 

35-37 

35-38 

16-27 

17-27 

27-35 

35-36 

35-37 

35-38 

21-29 

22-29 

29-35 

35-36 

35-37 

35-38 

20-39 

22-29 

29-35 

35-36 

35-37 

35-38 

20-29 

21-29 

29-35 

35-36 

35-37 

35-38 

30-35 

27-35 

29-35 

- 

28-35 

31-35 

35-36 

35-37 

35-38 

26-35 

27-35 

29-35 

- 

28-35 

31-35 

35-36 

35-37 

35-38 

26-35 

30-35 

29-35 

- 

28-35 

31-35 

35-36 

35-37 

35-38 

26-35 

30-35 

27-35 

- 

28-35 

31-35 

35-36 

35-37 

35-38 

26-35 

30-35 

27-35 

- 

29-35 

31-35 

35-36 

35-37 

35-38 

26-35 

30-35 

27-35 

- 

29-35 

28-35 

35-36 

35-37 

35-38 

is  three  minutes,  and  from  decision  B  to  planned  decision  D  is  five  minutes, 
the  weight  is  eight  minutes  (even  if  AC  and  BD  overlap  in  time).  Backward 
integrations  (see  Measure  7)  are  not  counted  in  this  measure. 

Weight  may  be  easily  calculated  using  the  data  in  Table  1.  For  period  1, 
weight  for  the  13  forward  integrations  credited  to  period  1  is  calculated 
in  Table  4. 

Number  of  backward  integrations  (Measure  7)  is  the  total  number  of  backward 
integrations  originating  in  a  period.  The  backward  integration  may  or  may 
not  end  in  the  same  period.  To  score  a  backward  integration,  the  participant 
must: 

•  Enter  a  decision  A  (endpoint  decision) 

•  Not  enter  plans  to  execute  decision  B 

•  Execute  decision  B  (the  origin  decision) 
in  a  different  category  from  decision  A 

e  Report  that  decision  B  was  based  in  part 
on  decision  A 

Note  that  backward  integrations,  unlike  forward  integrations,  originate 
at  a  time  later  than  their  endpoints.  Both  forward  and  backward  integra¬ 
tions,  however,  are  credited  to  the  period  during  which  they  originated. 

It  is  easier  to  calculate  backward  integrations  from  tne  time-event  matrix 
in  Figure  4  than  from  Table  1.  On  the  matrix,  a  backward  integration  is 
a  diagonal  with  a  backward  arrow  pointing  to  the  endpoint.  There  are  no 
backward  integrations  in  periods  1  and  3  of  the  sample.  Period  2  has  two 
backward  integrations,  23  to  15  and  23  to  18. 

Unintegrated  respondent  decisions  (Measure  8)  is  the  total  number  of 
unintegrated  respondent  decisions  within  a  period.  An  unintegrated 
respondent  decision  occurs  in  response  to  a  message,  but  may  not  originate 
a  forward  integration.  An  unintegrated  respondent  decision  may,  however, 
be  part  of  a  backward  integration,  or  the  endpoint  of  a  forward  integration. 
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TABLE  4 


INTEGRATION  TIME  WEIGHT  CALCULATIONS 
FOR  PERIOD  1  FOR  SAMPLE 
PARTICIPANT  "COMPLEX  TEST" 


FORWARD  INTEGRATIONS  TIME  OF  EXECUTION*  TIME  ELAPSED  IN 
IN  PERIOD  1  REAL  MINUTES  OF 

SIMULATION  TIME 


Origin 

Endpoint 

Origin 

Endpoint 

Decision 

Decision 

Decision 

Decision 

1 

2 

.5 

2.5 

2 

2 

3 

2.5 

4.5 

2 

3 

4 

4.5 

6.5 

2 

3 

7 

4.5 

12.5 

8 

4 

7 

6.5 

12.5 

6 

5 

7 

8.5 

12.5 

4 

7 

9 

12.5 

16.5 

4 

7 

10 

12.5 

18.5 

6 

7 

16 

12.5 

30.5 

18 

11 

16 

20.5 

30.5 

10 

9 

17 

16.5 

32.5 

16 

17 

18.5 

32.5 

14 

14 

26 

26.5 

50.5 

24 

I  ■  1 1 6 

"All  execution  times  In  this  sample  happen  to  fall  on  even 
minutes  and  at  half  minutes;  however,  the  computer  registers 
execution  times  at  any  tenth  of  any  minute. 


and  it  may  lead  to  another  decision  in  the  same  category.  Unintegrated 
respondent  decisions  are  a  special  case  of  respondent  decisions  because 
general  respondent  decisions  may  be  any  part  of  an  integration.  To  score 
an  unintegrated  respondent  decision,  a  participant  must: 

•  Execute  decision  A  (A  may  be  planned  or 
not  planned) 

t  Report  that  decision  A  was  based  on  a 
previous  message 

AND  EITHER 

•  At  the  time  decision  A  is  executed,  not 
report  a  decision  plan  in  a  different 
category 

OR 

•  Report  a  decision  plan  in  a  different 
category,  execute  the  plan,  but  not 
report  it  based  on  decision  A 

In  order  to  calculate  number  of  unintegrated  respondent  decisions  we 
need  more  information  than  is  shown  on  the  time-event  matrix,  so  we  use 
Table  1.  We  will  first  find  all  the  respondent  decisions,  then  test  to 
see  if  they  originate  forward  integrations  which  will  exclude  them  from 
being  "unintegrated." 

For  period  1,  the  respondent  decisions  are  1,  2,  8,  9,  and  15.  Decisions 
1  and  2  originate  forward  integrations  so  they  are  not  unintegrated. 

Decision  8  leads  only  to  a  decision  in  its  own  category  so  it  ’S  uninte¬ 
grated.  Decision  9  originates  a  forward  integration.  Decision  15  does 
not  originate  a  forward  integration  and  is  unintegrated.  Thus,  Decisions 
8  and  15  are  the  only  two  unintegrated  respondent  decisions  in  period  1. 

For  period  2,  the  respondent  decisions  are  numbers  23,  24,  and  25.  None 
of  them  originates  a  forward  integration  and  are  all  unintegrated  according 
to  the  use  of  the  word  unintegrated  in  this  measure.  Decision  23  originates 
two  backward  integrations,  but  still  counts  as  unintegrated. 


For  period  3,  the  respondent  decisions  are  32  and  33.  Decision  33  originates 
a  forward  integration;  32  is  an  unintegrated  respondent  decision. 

QIS  or  quality  of  integrated  strategies  (Measure  9)  is  the  sum  of,  for  each 
forward  integration  scored  in  a  period,  the  time  weight  for  that  integration 
multiplied  by  the  sum  of  the  number  of  forward  integrations  originating  and 
ending  at  the  origin  and  endpoint  of  the  forward  integration  plus  one  for 
that  forward  integration. 

QIS  may  be  thought  of  as  reflecting  the  complexity  of  plans  at  any  point. 
Where  plans  are  connected  in  a  strategy,  QIS  is  high.  The  QIS  score  is 
low  where  integrations  are  not  connected.  QIS  also  increases  with  the 
time  interval  from  origin  to  endpoint  of  integration.  Two  samples  of  QIS 
calculations  follow. 


If  vector  AB  is  a  forward  integration,  and  forward  integration  vectors  CA  and 
DA  end  at  decision  A  in  AB,  and  AE  originates  at  A  in  AB,  and  forward  inte¬ 
gration  vectors  BF  and  BG  originate  at  B  in  AB,  and  HB  ends  at  B  in  AB,  and 
the  time  elapsed  from  A  to  B  is  four  minutes,  the  QIS  score  is  four  (the 
time  weight)  multiplied  by  the  sum  one  for  AB  plus  three  for  CA,  DA,  and 
AE,  plus  three  for  BF,  BG,  and  HB,  or  4(7)  or  28. 


Category 

111 

121 

123 

131 

211 

222 

232 

311 


Time 


Period  3  of  the  sample  provides  a  more  complex  example  of  the  QIS  calculation. 
To  calculate  QIS  for  period  3  In  the  sample,  refer  to  the  time-event  matrix 
and  Table  5. 
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Weighted  QIS  (Measure  10)  is  the  sum  of  each  forward  integration  scored  in 
a  period,  plus  all  forward  integrations  originating  and  ending  at  both  ends 
of  the  forward  integration,  plus  all  forward  integrations  originating  (not 
ending)  in  the  endpoint  of  subsequent,  directly  connected  integrations 
until  the  end  of  the  simulation,  plus  all  forward  integrations  ending  (not 
originating)  in  the  origin  of  previous  directly  connected  integrations  until 
the  beginning  of  the  simulation,  multiplied  by  the  time  weight. 

Weighted  QIS  and  QIS  $re  equal  when  the  strategy  employed  links  only  three 
or  two  decisions  together;  that  is,  one  forward  integration  linked  to  one 
other  forward  integration,  or  just  one  forward  integration  not  connected 
to  any  other  integration. 


QIS  =  WQIS 


3 


However,  if  four  decisions  or  three  forward  integrations  are  linked, 
weighted  QIS  increases  over  QIS  because  weighted  QIS  considers  all 
forward  integrations  linked  from  beginning  to  end  of  simulation,  and 
QIS  considers  only  those  directly  adjoined  to  any  one  forward  integration: 


Two  sample  calculations  follow. 

Category 
111 
121 
122 
123 
211 
221 
222 


Refer  to  the  diagram  below. 


Time* 


% 

5  mins 


U 


If  vector  AB  is  a  forward  integration,  and  forward  integration  CA  connects 
to  A  In  AB,  and  DC  connects  to  C  in  CA,  and  CE  connects  to  C  in  CA,  and  BF 
and  HB  connect  to  B  in  BA,  and  GF  connects  to  F  in  BF,  and  time  elapsed 

from  A  to  B  is  five  minutes,  the  weighted  QIS  score  is  five  multiplied  by 

the  sum  of  one  for  AB  plus  one  each  for  CA  and  DC  (not  CE  which  originates 
not  ends  in  DC  and  CA),  plus  one  each  for  HB  and  BF  (not  GF  which  ends  not 
originates  in  BF),  or  5(5)  *  25.  Weighted  QIS  is  not  QIS  multiplied  by 
the  integration  time  weight  as  the  name  might  imply.  It  is  QIS  (which 
already  includes  time  weight)  weighted  with  integrations  distally  connected 
to  a  target  integration. 

[The  QIS  score  for  the  above  sample  would  be  five  times  (1  for  AB  +  1 
for  CA  +  1  for  BF  +  1  for  HB)  *  5(4)  *  20.  The  Multiplexity  F  for  the 

sample  would  be  one  for  AB  plus  one  for  HB  plus  one  for  BF  or  three. 

Multiplexity  F  is  essentially  the  forward  half  of  WQIS  minus  the  time 
weight.] 

WQIS  for  period  3  of  the  sample  provides  a  more  complex  example.  Refer 
to  the  time-event  matrix  in  Figure  4  and  Table  6. 

Average  response  speed  (Measure  11)  is  the  average  time  (in  real  minutes 
of  simulation  time)  elapsed  between  receipt  of  a  message  and  subsequent 
execution  of  a  respondent  decision.  (Recall  that  a  respondent  deicsion 
is  one  the  participant  reports  was  based  on  a  previous  message.  See 
Measure  2.)  The  calculation  is  based  on  every  respondent  decision  within 
a  period. 

To  calculate  average  response  speed  for  period  1  in  the  sample,  refer  to 
Table  1  and  Table  7. 


Number  of  serial  connections  (Measure  12)  is  the  number  of  serial  connections 


(see 
le  sai 
ion  i 


•Tt  i 


Jill 


«B> 


TABLE  7 


AVERAGE  RESPONSE  SPEED  CALCULATION 
FOR  PERIOD  1  FOR  SAMPLE 
PARTICIPANT  “COMPLEX  TEST" 


RESPONDENT 

DECISION 


TIME  MESSAGE 
DELIVERED* 


TIME  RESPONDENT 
DECISION  EXECUTED 


RESPONSE  SPEED 


A  serial  connection  may  be  either  forward  or  backward;  this  measure  includes 
both  types.  To  score  a  serial  connection,  the  participant  must: 


•  Execute  decision  A 

•  Plan  decision  B  in  the  same  category 

•  Report  that  decision  B  was  based  on 
decision  A 

OR 

•  Execute  decision  A 

•  Not  plan  decision  B 

•  Execute  decision  B  in  the  same  category 
as  decision  A 

•  Report  that  decision  B  was  based  on 
decision  A 

A  serial  connection  in  a  forward  direction  is  credited  to  the  period  of  the 
origin  decision  even  if  the  endpoint  occurs  in  a  different  period.  A 
serial  connection  in  a  backward  direction  is  also  credited  to  the  period  of 
the  origin  decision,  but  in  this  type  of  connection,  the  origin  decision 
occurs  after  the  endpoint  decision  because  the  endpoint  is  designated  only 
retrospectively. 

We  can  count  serial  connections  In  period  1  of  the  sample  by  counting  the 
horizontal  (not  diagonal)  lines  with  forward  or  backward  arrows  in  the 
time-event  matrix  (Figure  4).  The  serial  connections  are  decisions  7  to  8, 
8  to  11,  9  to  12,  and  14  to  30.  There  are  no  serial  connections  in  periods 
2  and  3. 

Planned  integrations  (Measure  13)  Is  the  number  of  forward  integrations 


origin  decision  was  entered.  The  planned  decision  must  be  in  a  different 
decision  category  from  the  origin  decision  category.  To  score  a  planned 
but  not  executed  integration,  the  participant  must: 

•  Execute  decision  A 

•  Plan  decision  B  in  another  category 

AND  EITHER 

•  Not  execute  decision  B 

OR 

§  Execute  decision  B  (or  any  decision  in 
B  category)  but  not  report  that  decision 
B  was  based  on  decision  A 

To  calculate  planned  but  not  executed  integrations,  refer  to  Table  1. 

In  period  1,  when  decision  1  was  executed,  decision  1121  was  planned, 
in  a  different  category  from  origin  decision  1111.  Decision  1121  was 
executed  (decision  2)  and  it  was  reported  based  on  decision  1.  Thus, 
the  integration  was  executed  and  does  not  count  in  this  measure.  We 
check  each  planned  decision  in  this  way  to  see  if  it  was  executed. 

At  decision  10  (212),  we  see  that  decisions  1331,  2211,  and  2212  were 
planned.  Decision  1331  was  executed  in  period  2  (decision  17),  reported 
based  on  decision  10  and,  thus,  the  integration  was  accomplished. 

Decision  2211  (planned  at  decision  212  and  in  a  different  category)  was 
executed  in  period  2  (decision  21)  but  was  not  reported  based  on 
decision  10;  therefore,  one  planned  but  not  executed  integration  is  scored. 
Planned  decision  2212  was  never  executed,  but  is  not  scored  as  such 
because  it  is  in  the  same  category  as  planned  but  not  executed  decision 
2211  mentioned  above. 

Period  2  contains  no  planned  but  not  executed  integrations.  Decision  1211 
was  planned  three  times,  executed  at  decision  27,  and  reported  based  on 
the  appropriate  decisions,  so  three  integrations  scored.  Decision  1321  was 
planned  but  also  executed  three  times.  The  12  plans  at  decisions  26  through 


31  are  all  in  the  same  322  category,  and  when'decision  3221  (decision  35) 
was  executed  it  was  reported  based  on  decisions  26,  27,  28,  29,  30,  and  31. 
Thus,  six  more  integrations  scored  in  period  2  (easy  to  see  on  the  time-event 
matrix) . 

Period  3  contains  three  planned  but  not  executed  integrations:  1221,  1111, 
and  1111 . 

General  unintegrated  decisions  (Measure  14)  is  the  number  of  general 
unintegrated  decisions  within  a  period.  A  general  unintegrated  decision 
is  a  decision  which  is  not  part  of  a  forward  or  backward  integration.  It 
may  be  part  of  a  serial  connection,  or  it  may  be  respondent,  or  planned 
but  not  executed,  or  planned,  executed,  but  not  reported  based  on  the 
previous  decision,  or  isolated  completely.  Unintegrated  respondent  decisions 
and  planned  but  not  executed  integrations  are  subsets  (may  be  overlapping) 
of  general  unintegrated  decisions. 

General  unintegrated  decisions  are  easy  to  spot  on  the  time-event  matrix. 

In  period  1,  decisions  6  and  13  stand  alone;  8  and  12  are  part  of  serial 
connections  not  integrations.  Every  other  decision  in  period  1  is  part 
of  an  integration.  In  periods  2  and  3,  decisions  24,  25,  32,  and  34 
stand  alone.  Every  other  decision  is  part  of  an  integration. 


CONTENTS  OF  FLOPPY  DISKS 


All  programs  and  files  required  to  run  the  Yugoslav  Dilemma  and  Storm 
simulations  are  stored  on  both  sides  of  floppy  disks  labelled  1,  2, 
and  3.  Decision  alternatives  for  the  Storm  simulation  (D,  D1 ,  D2)  are 
on  disk  3,  side  1.  The  contents  of  each  disk  are  as  follows: 
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HELLO 
UM1  Oft 
TEXT.H5 
TEXT .H19 
TEXT  .H20 
TEXT ,H2l 
TEXT.H52 
TEXT  .H23 
TEXT  .HOI 
TEXT  .H53 
TEXT  .HI 
TEXT .h; 
TEXT .  HS4 
TEXT  .  H907 
TEXT .M2* 
TEXT .H20 
TEXT . H4 
TEXT  .H2t> 
TEXT . H906 
TEXT ,H3 
TEXT .H50 
TEXT.H6 
TEXT . H900 
TEXT . H27 
TEXT .AT 
TEXT  .H28 
TEX  1 .H401 
TEXT  .run 
TEXT  .  H421 
TEXT  .H431 
TEXT  .H402 
TEXT.H412 
TEXT .H424 
TEXT  .  H403 
TEXT .H413 
TEXT .H423 
TEXT .M422 
TEXT .H432 
TEXT . H29 
TEXT . M30 
TEXT  .  H55 
TEXT  .H70 
TEXT .H56 

TEXT .HI 00 
TEXT .H71 
TEXT . H80 
TEXT  . H99 
TEXT • H9 
TEXT.M901 
TEXT .H902 
TEXT . M903 
TEXT .H90L 
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TEXT.H7 
TEXT .HE 
TEXT ,hll 
TEXT.H10X 
TEXT  «H120 
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TEXT.H13 
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TEXT .H14 
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TEXT .H17 
TEXT  .(122 
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TEXT .H910 
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TEXT .H916 
TEXT .H917 
TEXT .H918 
TEXT  .11921 
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TEXT .H924 
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TEXT.H926 
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1*641 

06411 
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04371 
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0436 
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04411 
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04432 
0452 
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